delphi - 如何在运行时分配 ToolButton 的 OnClick 事件？

Question

我在设计时创建了一个没有工具按钮的 TToolBar。我的想法是在运行时创建 ToolButtons 并在创建表单时将它们放在那里，只是为了向用户显示打开了哪些表单，而无需在主菜单中打开“Windows”菜单。

我有一个名为 NavigationUtils.pas 的单元，用于存储有关导航的过程/函数(如创建表单时创建按钮)。

问题是:创建 ToolButton 时如何配置 OnClick 事件？

Answer 1

从注释中可以清楚地看出，您没有将 TNotifyEvent 分配给 OnClick 事件。 TNotifyEvent 的声明是:

TNotifyEvent = procedure(Sender: TObject) of object;

因此，您需要一个带有 TObject 类型的单个参数的过程，并且该过程必须是对象的方法。所以，像这样:

procedure TMyForm.ToolButtonClick(Sender: TObject);

然后你可以像这样分配它:

NewToolButton.OnClick := ToolButtonClick;