Na, zeichnen werden die schon die Comboboxen, und das scheint ziemlich suboptimal implementiert zu sein.
Du kannst übrigens marginal etwas verbessern: Ziehe die Abfrage, ob meineForm <> nil ist, vor das Begin/EndUpdate:
Delphi-Quellcode:
if meineForm <> nil then
with FontBox do
begin
Items.BeginUpdate;
Items.AddStrings(meineForm.lstTTFonts);
Items.EndUpdate;
end;
Ich bin mir auch ziemlich sicher, das dein Begin-/EndUpdate überflüssig ist und daher würde ich das Statement so einkürzen.
Delphi-Quellcode:
if meineForm<>nil then
FontBox.Items.AddStrings(meineForm.lstTTFonts);
Das ist lesbarer. Und schlimmer wird es auch nicht, performancetechnisch gesehen.
PS: Sicher, das keine Events an den Combos hängen?