Hi,
du schreibst dir eine
procedure TMyClass.ShapeClick(Sender: TObject);
in welcher du es behandelst, z. B.
(Sender as TShape).BrushColor := clRed;
(ich glaube das hieß BrushColor, habe aber jetzt nicht nachgesehen).
Dann musst du noch das ganze Evwents:
Delphi-Quellcode:
procedure SetShapeOnClickEvent(const Shapes: array of TShape; Event: TNotifyEvent);
var Shape: TShape;
begin
for Shape in Shapes do
Shape.OnClick := Event;
end;
//oder
procedure SetShapeOnClickEvent(const Shapes: array of TShape; Event: TNotifyEvent);
var I: Integer;
begin
for I := High(Shapes) to Low(Shapes) do
Shapes[I].OnClick := Event;
end;
Mfg
FAlter
[edit] Irgendwas hat mit den Tags bnicht gestimmt.
[/edit]