if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='B' then form1.show;
procedure TForm1.TreeView1Click(Sender: TObject); begin if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='B' then form1.Show; if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='C' then form2.Show; if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='D' then form3.Show;end;
form1.show;
begin
if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='B' then
form1.Show;
if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='C' then
form2.Show;
if Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Text='D' then
form3.Show;end;