Array of TShape ansprechen

[Tonic1024]

Hi

Natürlich hat ein Shape kein onClick - bin wohl wieder nur hald da gewesen...

aber ist das gleiche, musst nur, wie jim schon sagte, onMouseDown nehmen...

Delphi-Quellcode:

TForm1 = class(TForm)
[..] 
  procedure ShapeClick(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  private
  public
  end;
[..]

procedure TForm1.ShapeClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

dabei bleibt das so wie oben beschrieben:

Shape2.OnClick:=ShapeClick;
das sollte passen...


MfG

Tonic