CCPack OnCreate

[ADelph]

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