Array of TShape ansprechen

[Tonic1024]

Hi...

Da wo du deinen Shapes die breite und die Höhe und so zuweist, kannst du auch eine Prozedur zuweisen, die z.B. bei onClick ausgeführt wird.

  Shape2.OnClick:=ShapeClick; Deine Prozedur kannst du dann ganz normal deklarieren.

Delphi-Quellcode:

TForm1 = class(TForm)
[..]  
  procedure ShapeClick(Sender: TObject);
  private
  public
  end;
[..]

procedure TForm1.ShapeClick(Sender: TObject);
begin
 [..]
end;

MfG

Tonic