パスカルの複数のボタンに対して1つの手順を使用する方法はありますか？

Question

複数のボタンに対して1つのプロシージャを使用する方法を探しています。質問1ではボタン1を押す必要があるが、36個のボタンのコード全体をコピーして貼り付け、36個のボタンの変数を変更するようなクイズは、誰にとっても楽しいものではありません。

だから私はこのようなものは可能だろうと思った：

procedure TForm1.Button[x]Click(Sender: TObject); 
begin 
    DoTask[x]; 
end; 

Xは可変であること。

同じことが可能か、同じ結果を得るための他の方法はありますか？

Answer 1

これを行う最も簡単な方法は次のとおりです。

1. ナンバー簡単にそれらを区別するために、オブジェクトインスペクタ（またはそれらが作成されているコード内）でTagプロパティを使用してボタン。

2. 1つのイベントハンドラを作成し、同じコードで処理するすべてのボタンに割り当てます（このボタンをクリックすると、プロシージャ/関数に渡す値が割り当てられます）。

3. イベントが受け取るパラメータは、クリックされたボタンで、TButtonとしてキャストできます。

   procedure TForm1.ButtonsClick(Sender: TObject); 
   var 
       TheButton: TButton; 
   begin 
       TheButton := Sender as TButton; 
       DoTask(TheButton.Tag); 
   end;