Come posso assegnare l'evento OnClick di un ToolButton in fase di esecuzione?

Question

Ho un TToolBar creato in fase di progettazione senza ToolButtons. La mia idea è di creare ToolButtons in runtime e inserirli lì quando vengono creati i miei moduli, solo per mostrare all'utente quali moduli sono aperti senza dover aprire un menu "Windows" nel menu principale.

Ho un'unità denominata NavigationUtils.pas che utilizzo per memorizzare le procedure/funzioni relative alla navigazione (come la creazione dei pulsanti quando vengono creati i moduli).

La domanda è: come posso configurare l'evento OnClick quando vengono creati i ToolButtons?

Answer 1

Dai commenti è chiaro che non si sta assegnando un TNotifyEvent all'evento OnClick. La dichiarazione di TNotifyEvent è:

TNotifyEvent = procedure(Sender: TObject) of object; 

quindi è necessario un procedimento, con un unico parametro di tipo TObject, e la procedura deve essere il metodo di un oggetto. Quindi, qualcosa di simile:

procedure TMyForm.ToolButtonClick(Sender: TObject); 

E poi è possibile assegnare in questo modo:

NewToolButton.OnClick := ToolButtonClick;