|
Registriert seit: 4. Mär 2006
9 Beiträge
|
Re: array of TShape
4. Mär 2006, 23:01
begin
for i:=1 to 47 do
begin
SKreis[i].visible:=true;
SKreis[i].width:=30;
Skreis[i].Height:=30;
SKreis[i].brush.color:=clred;
SKreis[i].Top:=i;
SKreis[i].left:=i;
end;
end;
das problem ist jetzt nur, dass wenn ich mein prog ausführe, das prog abstürzt, sobald ich die prozedur starte.
|