关于TreeView

Question

我想点击相应的节点，激发相应的事件现在我只知道判断TreeView1.Selected.Text，但是Text是可以重复，请问该怎么做？
procedure TForm1.TreeView1Click(Sender: TObject);
var P:TPoint;
beginif TreeView1.Selected.Text = ‘指定节点的值’ then 
begin
//执行相应的操作。  
end;end;

Answer 1

TreeView1.Selected.Index  = xxx

Answer 2

树节点有个data属性，是一个无类型指针。你可以用来存储任何值。包括唯一标识。

Answer 3

用data屬性，把信息都放到裡面去

Answer 4

恩，根据你们信息，挖出帖子来看看http://topic.csdn.net/u/20090331/16/A8B376DA-5C3F-4577-9E90-8E06CA82F155.html

Answer 5

创建节点信息的时候，就比较烦了，一个一个去弄type
  TMyData = record            //申明一个自定义类型, 用于存放Data数据
    ID: String;               //这里可以多个记录域, 可以不仅仅只有ID
  end;
  PMyData = ^TMyData;var
  MyData : PMyData;
begin
  ......
  new(MyData);
  MyData^.ID := ADOQuery2.FieldByName('CP_ID').AsString;          //注: MyData^.ID可以省略写成MyData.ID
  myNodeChild.Data := MyData; 
  ......
end;
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
  if Node.Data <> nil then
  begin
    Dispose(Node.Data);
    Node.Data := nil;
  end;
end;

Answer 6

我的需求，根据
TreeView1.Selected.Parent.Index
TreeView1.Selected.Index
来判断就行了。这个VCL为什么搞这么麻烦，直接弄成菜单的那种方式，直接写点击事件不是更好吗。