Question

I have a Delphi program which contains the following code:

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

Thing is, I want the exact same code for all 20 shapes. How do I go around doing this effectively? Thanks!

Answer 1

1. Use multi-select (e.g. SHIFT+CLICK, or click and drag a selection rectangle) to select all 20 shapes.
2. In the Object Inspector set the OnMouseDown event handler to be the common event handler. This will assign the same event handler to all 20 selected shapes.
3. If you need to know which shape was clicked from inside your common event handler, use (Sender as TShape).