+ -
当前位置:首页 → 问答吧 → 请问怎么让label使用actionlist里的action?

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

时间:2011-12-06

来源:互联网

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

作者: fky1989   发布时间: 2011-12-06

双击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;

作者: kaikai_kk   发布时间: 2011-12-06

热门下载

更多