Jak mogę przypisać zdarzenie OnClick ToolButton w czasie wykonywania?

Question

Mam TToolBar stworzony w czasie projektowania bez ToolButtons. Moim pomysłem jest tworzenie ToolButtonów w środowisku wykonawczym i umieszczanie ich tam, kiedy moje formularze są tworzone, aby pokazać użytkownikowi, jakie formularze są otwierane, bez potrzeby otwierania menu "Windows" w menu głównym.

Mam jednostkę o nazwie NavigationUtils.pas, której używam do przechowywania procedur/funkcji dotyczących nawigacji (jak tworzenie przycisków podczas tworzenia moich formularzy).

Pytanie brzmi: Jak skonfigurować zdarzenie OnClick po utworzeniu ToolButtons?

Answer 1

Z komentarzy jasno wynika, że ​​nie przypisujesz TNotifyEvent do wydarzenia OnClick. Deklaracja TNotifyEvent jest:

TNotifyEvent = procedure(Sender: TObject) of object; 

Więc trzeba procedurę, za pomocą jednego parametru typu TObject, a procedura musi być metoda obiektu. Tak, coś takiego:

procedure TMyForm.ToolButtonClick(Sender: TObject); 

a następnie można przypisać ją tak:

NewToolButton.OnClick := ToolButtonClick;