请问怎么让label使用actionlist里的action?
我试了在label onclick 事件里
btn1.onclick(nil);
or
btn1.Action.OnExecute(btn1);
都内存错误
[解决办法]
双击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;
[解决办法]
procedure TForm2.lbl1Click(Sender: TObject); //Leble单击事件begin acAddChild.Execute;//Action项end;