実行時にツールボタンのOnClickイベントをどのように割り当てることができますか？

Question

デザイン時にToolButtonを持たないTToolBarを作成しました。私の考えは、実行時にToolButtonを作成し、フォームが作成されたときにそこに配置することです。メインメニューの「Windows」メニューを開くことなくフォームを開く方法をユーザーに示します。

NavigationUtils.pasという名前のユニットがあり、これはナビゲーションに関するプロシージャ/関数（フォームの作成時にボタンを作成するためのもの）を保存するために使用します。

質問：ツールボタンの作成時にOnClickイベントを設定するにはどうすればよいですか？

Answer 1

コメントから、TNotifyEventをOnClickイベントに割り当てていないことは明らかです。 TNotifyEventの宣言は次のとおりです。

TNotifyEvent = procedure(Sender: TObject) of object; 

ですから、タイプTObjectの単一のパラメータで、手順を必要とし、手続きは、オブジェクトのメソッドでなければなりません。したがって、このような何か：

procedure TMyForm.ToolButtonClick(Sender: TObject); 

そして、あなたはそうのようにそれを割り当てることができます。

NewToolButton.OnClick := ToolButtonClick;