Hallo,
ich will auf meinem Formular eine erst zur Laufzeit vorgegebene anzahl von Panel und Listboxen erzeugen
Die panel funktionieren auch und die Listboxen auch aber wenn ich díe Listboxes Zeilen oder Text hinzufügen kommt beim ausführen der Fehler:
Im Projekt Dart.exe ist eine
Exception der Klasse EInvalit Operation aufgetreten. Meldung: Element hat kein übergeordnetes Fenster.
Prozess wurde angehalten. Fortsetzen mit Einzelne Anweisung oder Start.
Wo liegt mein Fehler die Felder name und Punkte von i haben einen inhalt das habe ich schon überprüft.
Delphi-Quellcode:
procedure TTpunkt.FormShow(Sender: TObject);
var i :integer;
AName : array of TPanel;
APunkte : array of Tmemo;
begin
setlength(Aname,unit1.anz);
For i :=0 to High(Aname) do
begin
AName[i] := TPanel.Create(self);
with AName[i] do
begin
Caption :=aspieler[i].name;
Height := 17;
Top := 80;
Width := 85;
Left := 15 + (i * 90);
parent := self;
end;
end;
setlength(APunkte,unit1.anz);
For i :=0 to High(APunkte) do
begin
APunkte[i] := TListbox.Create(self);
with APunkte[i] do
begin
Items.add (inttostr(aspieler[i].punkte[0]));
Height := 320;
Top := 105;
Width := 85;
Left := 15 + (i * 90);
parent := self;
end;
end;
end;
könnt ihr mir sagen wo mein fehler liegt oder wie ich die Komponenten anders erzeugen kann so das es funktioniert
