delphi - 如何将 20 个形状连接到单个“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. 在 Object Inspector 中，将OnMouseDown事件处理程序设置为公共事件处理程序。这将为所有 20 个选定的形状分配相同的事件处理程序。
3. 如果您需要知道从公共事件处理程序中单击了哪个形状，请使用(Sender as TShape).