Wie kann ich das OnClick-Ereignis eines ToolButtons zur Laufzeit zuweisen?

Question

Ich habe eine TToolBar in Entwurfszeit ohne ToolButtons erstellt. Meine Idee ist, ToolButtons in Runtime zu erstellen und sie dort zu platzieren, wenn meine Formulare erstellt werden, nur um dem Benutzer zu zeigen, welche Formulare geöffnet werden, ohne ein "Windows" -Menü im Hauptmenü öffnen zu müssen.

Ich habe eine Einheit namens NavigationUtils.pas, die ich verwende, um die Verfahren/Funktionen über die Navigation zu speichern (wie die Erstellung der Schaltflächen, wenn meine Formulare erstellt werden).

Die Frage ist: Wie kann ich das OnClick-Ereignis konfigurieren, wenn die ToolButtons erstellt werden?

Answer 1

Aus den Kommentaren wird deutlich, dass Sie TNotifyEvent dem Ereignis OnClick nicht zuweisen. Die Erklärung von TNotifyEvent ist:

TNotifyEvent = procedure(Sender: TObject) of object; 

So müssen Sie eine Prozedur, mit einem einzelnen Parameter des Typs TObject, und das Verfahren muss die Methode eines Objekts sein. So etwas wie folgt aus:

procedure TMyForm.ToolButtonClick(Sender: TObject); 

Und dann kann man es wie so zuweisen:

NewToolButton.OnClick := ToolButtonClick;