treeview的用法问题？？

Question

当设置了树型之后，怎么使树型像按钮一样的反应呀？？？代码怎么写？？例如，树型　里有一个是“数据初始化”，当我用鼠标点击后，和在菜单里的点击效果一样？？这个代码怎么写呀？？

Answer 1

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  node: TTreenode;
begin
  node := Treeview1.GetNodeAt(x, y);
  if node.Text = 'XXXXX' then
  begin  end;
end;

Answer 2

什么意思呀？
可以在树的OnClick事件中设置你的操作
 if TreeView1.selected = nil then Exit;//--> select none;
 if TreeView1.Selected.Text = '数据初始化' then
 begin
   //--> do what you want;
 end;

Answer 3

不错的东东，谢
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  node: TTreenode;
begin
  node := Treeview1.GetNodeAt(x, y);
  if node.Text = 'XXXXX' then
  begin  end;
end;还不知何意