51 TShape's zur laufzeit erstellen...

[pmc]

Hallo,

Ich muss 51 shapes zur laufzeit erzeugen....aber bei mir werden sie nicht auf dem formular angezeigt...

bisher habe ich es so gemacht :

Delphi-Quellcode:

var disp : Array[1..51] of TShape;
.
.
.
    disp[i]:=TShape.Create(licht);

    disp[i].Height:=d;
    disp[i].Width:=d;

disp ist ein Array von TShape!!!

Kann mir jdm weiterhelfen....

P.S. habe schon im forum gesucht und mit dem was ich gefunde hab dashier gemacht!!!

Also bitte nicht schreiben das ich mal suchen soll....gibt mir nen link oder ne antwort...

THX PMC

[Luckie]

Die Eigenschaft Parent hast du aber zugewiesen?

[Robert Marquardt]

Du musst die Zeile
disp[i].Parent := licht;
noch hinzufuegen.
Solange der Parent noch nicht gesetzt ist weiss die Control noch nicht wo sie sich hinmalen soll.

[Pseudemys Nelsoni]

hallo, bei mir geht das:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var
  disp: Array[1..51] of TShape;
  i: integer;
begin
  for i := 1 to 51 do
  begin
    disp[i] := TShape.Create(Form1);
    with disp[i] do
    begin
      Parent := Form1;
      Width := 100;
      Height := 100;
    end;
  end;
end;

EDIT: bah, immer ist jemand vor mir

[Robert Marquardt]

Du schreibst zu viel Text

[pmc]

Schon mal schönen dank für die schnelle hilf...

Ich hoffe ich verlange nicht zuviel wenn ich euch um ein bissel quellcode bitte???!!!

MFG PMC

P.S. Danke !!!

[kiar]

steht doch alles da oder

raik

[Luckie]

Hat dir doch PN gegeben.

Und was ist daran so schwer:
disp[i].Parent := Form1; zu schreiben?

[pmc]

oh sorry....hab ich glat übersehen....besten danke für eure hilfe...

MFG PMC