OnDrawItem in Frames mit dynamischen ComboBoxen

[ruedigeruwe]

da stand ich wohl gerade voll auf dem Schlauch:

Da in der Combobox keine Items vorhanden sind, löst diese daher auch nicht das OnDrawItem-Ereignis aus.

Code:

With RunTimeCombo[x] do
    begin
      Parent := (Sender as TFrame);
      Left := 10;
      Top :=10;
      Width:=100;
      Style := csOwnerDrawFixed;
      items.Add('1');
      items.Add('2');
      ondrawitem := ComboBoxDrawItem1;
      DroppedDown := true;
    end;