HERZLICH WILLKOMMEN IN DER DELPHI-PRAXIS
Zitat von
nobody_anfänger:
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;
1. lässt sich das folgendermaßen abkürzen:
SKreis[i].SetBounds(i,i,30,30)
2. Hast du wahrscheinlich vergessen die Shapes zu erzeugen, am anfang muss
SKreis[i]:= TShape.Create;
stehen
Also am ende dann so:
Delphi-Quellcode:
for i:=1 to 47 do
begin
SKreis[i]:= TShape.Create;
SKreis[i].SetBounds(i,i,30,30);
SKreis[i].brush.color:=clred;
end;