vb.net - Delphi 中的 VB [(Function) 句柄 ...] 等效项

Question

假设我们有类似的东西

Private Sub ClickObject(ByVal sender As System.Object, ByVal e as System.Eventargs) 
Handles Object1.click, Object2.click, Object3.click

它在“Handles”之后获取事件并将它们发送到函数。

Delphi 中是否有等效的方法，我该怎么做？

Answer 1

将 TActionList 添加到您的表单中。向其中添加 TAction 并像处理其他控件的 OnClick 事件一样处理其 OnExecute 事件。指定控件的 Action 属性以引用您添加到操作列表中的操作。 (这也会导致控件从关联的操作中获取其标题以及启用和可见属性。这意味着当菜单和工具栏按钮代表相同的命令时，可以更轻松地使它们具有统一的状态。)