Shape wärend Laufzeit erzeugen.

[Stanlay Hanks]

Hi! Als Beispiel:

Delphi-Quellcode:

 var Shape : TShape;
begin
 Shape := TShape.Create(Form1);

 With Shape do
  begin
   Parent := Form1;
   Left := 20;
   Top  := 20;
   Width:= 20;
   Height:=20;
   Name := 'Shape1';
  end;

end;

Anschließend kannst du das neue Shape über Shape1 ansprechen.
Vorher die Unit ExtCtrls einbinden.

Man liest sich, Stanlay