实现按钮单击Firemonkey

Question

我在FireMonkey TButton.Click中缺少TButton方法。

有没有办法在火猴的代码中触发click事件？如果没有此类事件，只需使用click方法触发分配给按钮的操作？

Answer 1

嗯，你可以简单地写一下：

Button1.OnClick(Button1);

如果按钮附加了操作，您可以使用

调用它

Button1.Action.Execute;

但这并不值得推荐。正确的方法是创建一个方法来完成工作。然后从您的OnClick事件处理程序或代码中想要调用此操作的其他位置调用该方法。像这样：

procedure TForm1.DoSomething;
begin
  // do whatever it is
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoSomething;
end;

然后，您可以在代码中的任意位置拨打DoSomething。最好保留GUI事件处理程序，仅用于处理GUI事件。

Answer 2

您可以使用此方法： 首先声明这个新类型以访问TButton Click过程：

type
  TButtonHack = type TButton;

然后将您的按钮关闭到TButtonHack类并调用Click过程：

TButtonHack(Button1).Click;