TNode的Data能否指向一个TAction？？

Question

TNode的Data能否指向一个TAction？？
我想实现当用户点击TreeView的节点时，自动执行一个TAction

Answer 1

可以procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage('Action1');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.TreeView1.Items[0].Data := Action1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin                       
  TAction(TreeView1.Items[0].Data).Execute;
end;

Answer 2

谢谢楼上，确实可以
另外，要用TreeView实现功能导航，用什么方案比较好我现在想这样做：
根据ActionList中的Action动态生成Node
Node的Data指向Action用户选择Node时，用 TAction(Node.Data).Execute 调用