如何将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)。