ComboBox: Breite der DropDown-Liste ändern

[Lannes]

Hallo,

im OnCreate der Form in der Reihenfolge funktioniert es bei mir:

Delphi-Quellcode:

const
  PIXEL_WIDTH = 200;
begin
  Combobox.Style := csOwnerDrawFixed;
  with Combobox.Items do
    begin
      Add('first;second;third;');
      Add('column1;column2;column3;');
    end;
  ComboBox.Perform(CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0);