Array de Shapes

[Jozele]

Hola a todos,

Seguro que es muy facil, pero me estoy volviendo loco (soy muy novato) para conseguir tener varios Tshapes en un array para no tener que manejarlos individualmente.

Gracias.:o

[Lepe]

var a: array [0..100] of Tshape;
i:integer;
begin
for i:= low(a) to 50 do
begin
a[i]:= Tshape.create(form1);
a[i].parent......
end;
a[51] := Form1.shape1 ;
// por qué no vamos a meter una que ya esté en la ventana ???
{sería mas facil acceder mediante Form1.Shape1, pero si quieres
homogeneizar las cosas, puedes meter otras que esten ya creadas}


Si que era sencillo no??? ;)
Complicando la cosa un poquito

var a : array [Boolean] of Tshape;
b:boolean;
begin
a[false].visible := false;
a[True].visible := true;
a[b].visible := false; // pos depende de B cual de las 2 haces invisible.


no te lies, [Boolean] es igual que [0..1] ;)



Saludos

[Jozele]

Gracias, voy a probar.