delphi - 如何模拟按下按钮？

Question

我想测试一些表单。有没有办法模拟按下“确定”(或“取消”)按钮，以便按下该按钮并触发与其关联的事件处理程序？

Answer 1

最简洁的方法是调用按钮的 Click 方法。由于以下原因，这比其他替代方案更好:

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