如何模拟按下按钮？

Question

我想测试一些表格。有没有办法模拟按下确定（或取消）按钮，以便按下按钮并触发与之关联的事件处理程序？

Answer 1

最干净的方法是调用按钮的Click方法。由于这些原因，这比其他选择更好：

• 您可以阅读OnClick属性，检查它是否为nil，然后调用该方法。但这似乎毫无意义，因为Click方法已经做到了。重复此代码毫无意义。
• 您可以直接调用事件处理程序，但这需要您的代码了解它。这意味着与实现细节的不期望的耦合程度。
• 调用Click会复制用户点击时实际发生的情况。 是当用户按下按钮时会发生什么。例如，它处理与按钮关联的任何操作。它设置窗体ModalResult属性。等等。

Answer 2

btn_ok.click或btn_okClick(sender);

Answer 3

调用OnClick事件处理程序不会调用Delphi的默认事件处理程序，而只调用用户实现的处理程序。我认为你应该创建自己的派生自TCustomButton的类，并实现一个调用Click方法的函数（它受到保护）。

Answer 4

对TSpeedButton的更正：

@David Heffernan所描述的行为并不完全适用于组中的快速按钮。调用Click方法似乎并不影响按钮的“按下”状态。

为解决这个问题，我使用了以下代码：

MyButton.Click;
MyButton.Down := True;

Answer 5

最好使用Button =＆gt;

的PerformClick()方法

button1.PerfomClick()

如果您的Button未处于正确的单击状态（启用为false或不可见），则不会执行click eventmethod。