Klick aus einem array of Shape

[dominikkv]

Du teilst jedem Shape einfach die gleiche OnClick-Procedure zu und in dieser kannst du über Sender auf das Shape zugreifen:

Delphi-Quellcode:

for I := 0 to Length(MyShapeArray) - 1 do
  MyShapeArray[I].OnClick := MeineOnClickProcedure;

// ...


procedure TForm1.MeineOnClickProcedure(Sender: TObject);
begin
  with Sender as TShape do
    begin
      Color := clBlue;
    end;
end;