急，在线等，请高手们看看，新手一个~~~~~~~~~~~``

Question

我用VIEWTREE做了一个，要点击上面的一个值，谈出一个FORM，该怎么写

Answer 1

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected <> nil then
  begin
    //做弹出窗体的事件
    MessageDlg(TreeView1.Selected.Text,
      mtInformation, [mbOk], 0);
  end;
end;

Answer 2

我现在在TreeView1有3个属性，一个AAA，一个BBB 还有一个CCC，点击AAA出来一个界面，点击BBB出来另一个，改怎么写啊
我在AAA的selected index = 1  BBB的selected index = 2   ccc的selected index = 3

Answer 3

if treeview1.Selected.Index=1 then
     showmessage('1');或者用，
   if treeview1.Selected =treeview1.Items[1] then
     showmessage('2');两种方法不一样的，看你自己需要了