Einzelnen Beitrag anzeigen

ADelph

Registriert seit: 10. Aug 2009
91 Beiträge
 
Delphi 10.4 Sydney
 
#1

CCPack OnCreate

  Alt 2. Aug 2019, 11:12
Hi,

vielleicht weiß hier ja jemand, warum meine Idee nicht funktioniert.

Ich probiere gerade die CCPack Beispiele.

Im Beispiel FourLists, bzw. in der entworfenen Komponente 'CCCustomBox' habe ich dies ergänzt:

Delphi-Quellcode:

procedure TCustomBox.BoxCreate(Sender: TObject);
var
 iA : integer;

begin
 TheLabelCtrl.Caption:=Random(199).ToString;
 for iA:=1 to 100 do
  TheListBoxCtrl.Items.Add(iA.ToString);
 TheListBoxCtrl.ItemIndex:=0;
end;
Aber es funktioniert nicht. Das Ergebnis ist dies (Siehe Grafik):
Also die Caption des Labels wird gesetzt, aber die Items der ListBox nicht.

Vielleicht sehe ich den Wald vor lauter Bäumen nicht, aber ich verstehe den Unterschied nicht - also weshalb wird die ListBox nicht richtig angezeigt?

Tipps sind sehr willkommen!
Grüße
Miniaturansicht angehängter Grafiken
fourlists.png  
Wir versuchen in fehlerbehafteten Systemen mit fehlerhaften Entwicklungsumgebungen fehlerfreie Software zu erstellen - das kann nicht klappen

Geändert von ADelph ( 2. Aug 2019 um 11:17 Uhr)
  Mit Zitat antworten Zitat