[Dead_Gigabit]

Подскажите пожалуйста в чем моя ошибка:

Код:

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if form1.TreeView1.Selected.SelectedIndex=1
then
form3.Show;
end;
begin
if form1.TreeView1.Selected.SelectedIndex=2
then
form2.Show;

end.

выдает: access violation at address 004DBC9A in module

[novashdima]

во первых попробуй Form2.ShowModal;/Form3.ShowModal;
выложи код создания форм

[Dead_Gigabit]

Всмысле код создания форм?

[NIch]

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if form1.TreeView1.Selected.SelectedIndex=1
then
form3.Show;
end;
begin
if form1.TreeView1.Selected.SelectedIndex=2
then
form2.Show;
end.

Я бы сделал так...

Код:

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
 //Если выделен 1 элемент
 if form1.TreeView1.Selected.SelectedIndex=1 then
 begin
  Form3 := TForm.Create;
  Try
   Form3.ShowModal;
  Finally
   Form3.Free;
  end;
 end;
 //Если выделен 2 эемент
 if form1.TreeView1.Selected.SelectedIndex=2 then
 begin
  Form2 := TForm.Create;
  Try
   Form2.ShowModal;
  Finally
   Form2.Free;
  end;
 end;
end;

[Dead_Gigabit]

NIch спасибо выручаешь который раз, все работает норм....