Hallo Leute,

ich habe in meinem Programm ein Page Control, auf dem ich zur Laufzeit ein neues Tab und darauf wiederum einige Labels und eine Listbox erzeuge. Bisher läuft alles wunderbar. Das Problem ist nur, es wird außer meiner gewollten Listbox noch eine Art Lisbox-Fragment erstellt. Man kann diese Komponente nicht anwählen, aber man sieht sie deutlich.
Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

var
 newPage:TTabSheet;
 newlabel0:TLabel;
 newlabel1:TLabel;
 newlabel2:TLabel;
 newlabel3:TLabel;
 newlist:TStringList;
 newlistcomp:TListBox;

Begin
    newlist:=TStringList.Create;
    
//Newpage Konfiguration
    newpage:=TTabSheet.Create(Form1.PageControl1); //<-- Neues Tab-Sheet
    newpage.parent:=form1.PageControl1;
    newpage.PageControl:=Form1.PageControl1;
    newpage.Caption:=name;
 
    {Die Erstellung der Labels habe ich entfernt. Die funktioniert!}

    //Neue Listbox Konfiguration //<-- Die Lisbox
    newlistcomp:=TListBox.Create(newpage);
    newlistcomp.Parent:=newpage;
    newlistcomp.Left:=10;
    newlistcomp.top:=105;
    newlistcomp.width:=222;
    newlistcomp.height:=245;
    newlistcomp.Items:=newlist;
end;

Einen Screenshot hänge ich mal dran.

Danke schonmal.

BlackFoXX

Moin Jonas,

das sieht aber soweit korrekt aus.

Mir ist nur nicht klar, was Du mit der StringList willst.

das ist eine berechtigte Frage...

Hmm.. Sorry. Die brauch ich auch garnet mehr. Hab ich nur vergesen zu entfernen. Ist so zu sagen ein Relikt.
Ich probiers mal ohne..

[Edit] Das ändert auch nichts! Leider [/Edit]

Probiers mal so:

markieren

Delphi-Quellcode:

newlistcomp:=TListBox.Create(newpage);
newlistcomp.Left:=10;
newlistcomp.top:=105;
newlistcomp.width:=222;
newlistcomp.height:=245;
newlistcomp.Parent:=newpage; //<-- Erst nach setzten der Position aufrufen
newlistcomp.Items:=newlist;

Jetzt gehts..
Danke..
Ich hätte wohl noch ewig gesucht!!!

Greetz Jonas