shape ; wie erstelle ich shapes im verlauf eines programms?

[Matze]

Hi!

Herzlich Wollkommen in der DP!

So geht's:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyShape: TShape;
begin
  MyShape:=TShape.Create(Self);
  MyShape.Left:=10;
  MyShape.Top:=10;
  MyShape.Width:=100;
  MyShape.Height:=200;
  MyShape.Parent:=Form1;  //wo das Shape nachher hin soll
  MyShape.Show;
end;

In einer for-Schleife z.B. lassen sich dann mehrere erzeugen.