shape ; wie erstelle ich shapes im verlauf eines programms?

[bastibrueck]

Würde gerne im Verlauf eines Programms, eine bestimmte Anzahl von shapes erstellen. Am besten mit festgelegten Koordinaten.
Hilfe!!!
Bitte!!!
:gruebel:

[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.

[himitsu]

Hab hier ein Demo für's dynamische erstellen.

Ist zwar mit Edit's und so, zeigt aber wie's geht.

Begrenzte Anzahl TEdit-Komponenten?? (10 Post / mein 3.)


Add:
Ich vergesse auch alles in letzter Zeit.

Herzlich wilkommen auf der DP. :hi:

[Matze]

Achja, oben noch:

Delphi-Quellcode:

uses ExtCtrls

einfügen.

Oder ein Shape auf die Form und dann kompilieren, danach das Shape wieder löschen.