Man, man, man.
Da muss man erst einmal drauf kommen:
Delphi-Quellcode:
With ComboBox1.Items Do
Begin
Add('################################');
ComboBox1.Perform(CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0);
Clear;
End;
Vor Perform muss man einen Eintrag in Items so lang machen, dass es mindestens so lang ist, wie die Liste dann breit sein soll.
Viel Spaß noch.