请问怎么让label使用actionlist里的action？

Question

我试了在label onclick 事件里
btn1.onclick(nil);
or
btn1.Action.OnExecute（btn1）;
都内存错误

Answer 1

双击ActionList1添加2个Action1,Action2
再双击Action1,会产生Action1的事件Action1Execute
procedure TForm1.Action1Execute(Sender: TObject);
begin
  showmessage('测试');
end;在窗体的Create事件关联label到Action1Execute就是了
即点击了label就会触发Action1事件
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.OnClick:=Action1Execute;
end;

Answer 2

procedure TForm2.lbl1Click(Sender: TObject);  //Leble单击事件
begin
  acAddChild.Execute;//Action项
end;