array of TShape

[nobody_anfänger]

ich weiß ihr werdet mich ehr oder weniger für dumm erklären, aber ich hab keine ahnung wie ich die erstelltetn Shapes anzeigen soll, wenn ich sie als arry erstellt hab.

[Nikolas]

Herzlich willkommen in der DP

Wenn list dein array ist, dann einfach per

Delphi-Quellcode:

list[0].visible:= true;
list[0].top:= 45;

Wie sieht denn dein Code bis jetzt aus?

[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;

das problem ist jetzt nur, dass wenn ich mein prog ausführe, das prog abstürzt, sobald ich die prozedur starte.

[inherited]

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;

[nobody_anfänger]

jetzt hab ich das problem, das der fehler not enought parapeters angezeigt wird.

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
var i:integer;
begin
  for i:=1 to 47 do
  begin
    SKreis[i]:= TShape.Create;
    SKreis[i].SetBounds(i,i,30,30);
    SKreis[i].brush.color:=clred;
  end;
end;

[inherited]

Dann so: SKreis[i]:=TShape.Create(self);

[nobody_anfänger]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to 47 do
  begin
    SKreis[i]:=TShape.Create(self);
    SKreis[i].SetBounds(i*2,i*2,30,30);
    SKreis[i].brush.color:=clred;
    SKreis[i].Visible:=True;
    repaint;
  end;
end;

es lässt sich jetzt compilieren, aber es ist trotz des repaints nichts zu sehen auf dem bildschirm. warum?

[Waldteufel]

Hi nobody_anfänger.

Da fehlt imho noch ein SKreis[i].Parent := self;

[nobody_anfänger]

danke, jetzt funtz es.