首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

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

2012-03-06 
请问怎么让label使用actionlist里的action?我试了在label onclick 事件里btn1.onclick(nil)orbtn1.Action

请问怎么让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; 

热点排行