delphi - 在 Firemonkey 中实现按钮点击

Question

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

有没有办法在火猴的代码中触发点击事件？如果没有这样的事件，只是使用点击方法来触发分配给按钮的动作？

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;