如何在使用action时，先让程序运行我在BUTTON中事件呢？(100分)

我在ACTIONLIST中使用了标准事件数据添加

现在我将一个BUTTON的ACTION设为这个ACTION

但现在我想自己写一些判断条件等在BUTTON的CLICK中

请问该如何实现

刚学DELPHI,请多帮忙

你可以设置button的onclick事件为buttonclick
然后在button的onclick事件中判断是执行buttonclick还是actionexecute
或在actionExecute中判断也是一样。

procedure TForm1.Action1Execute(Sender: TObject);
begin

showmessage('action');
//if 某条件 then
button1.OnClick:=Button1Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//if 某条件 then
button1.Action:=action1;
//或直接运行action1execute
showmessage('button');
end;

接受答案了.

谢谢了～～～