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