读书人

请教如何让label使用actionlist里的ac

发布时间: 2012-03-06 20:47:55 作者: rapoo

请问怎么让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;
[解决办法]

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

读书人网 >.NET

热点推荐