delphi - 20個の図形を1つの「OnMouseDown」に接続するにはどうすればよいですか？

Question

次のコードを含むDelphiプログラムがあります。

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  <code here>
end;

つまり、20個の形状すべてにまったく同じコードが必要です。これを効果的に行うにはどうすればよいですか？ありがとう！

Answer 1

1. 複数選択（たとえばSHIFT+CLICK、選択長方形をクリックしてドラッグ）を使用して、20個の形状すべてを選択します。
2. オブジェクトインスペクターで、OnMouseDownイベントハンドラーを共通のイベントハンドラーに設定します。これにより、選択した20個の図形すべてに同じイベントハンドラーが割り当てられます。
3. 一般的なイベントハンドラー内からクリックされた図形を知る必要がある場合は、を使用します(Sender as TShape)。