Board index » delphi » Creating multiple shapes on Form

Creating multiple shapes on Form

Hi !

Now I know hot to create one Tshape on Form, but does anyone know how to
create multiple shapes on different positions !

Thanx in advance !

Bye , Boris

 

Re:Creating multiple shapes on Form


In article <36061856.7...@guest.arnes.si>, Lorger Boris
<Boris.lor...@guest.arnes.si> writes

Quote
>Hi !

>Now I know hot to create one Tshape on Form, but does anyone know how to
>create multiple shapes on different positions !

>Thanx in advance !

>Bye , Boris

for 0 to asMany asYouLike fo
begin
  aShape := TShape.Create(anOwner);
  with aShape do
  begin
    Parent := aParent;
    Shape := aShapeType;
    Left := aNumber;
    Top := anOtherNumber;
    Width := yetAnother;
    Height := andStillAnother;
    .........................
    .........................
    .........................
    .........................
    .........................
 end;{}
end;{}
--
Andrew James Johnson

Other Threads