ComboBox: Breite der DropDown-Liste ändern

[Helmi]

Hallo Mädels :mrgreen: ,

ich möchte mehrere Spalten in einer ComboBox anzeigen lassen und hab dafür den Code von den Schweizern.

Das funktioniert auch bestens.

Nur möchte ich auch die Breite der DropDown-Liste der ComboBox ändern.
Dafür gibt es von den Schweizern diesen Code.
Wenn ich nun die Zeile:

Delphi-Quellcode:

ComboBox1.Perform(CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0);

in den oberen Code bei "ComboBox1DrawItem" als letzte Zeile einfüge, dann funktioniert das Ändern der Breite nicht.
Die DropDown-Liste bleibt gleich groß.

Geht der Code nicht, weil

Delphi-Quellcode:

Combobox1.Style := csOwnerDrawFixed;

gemacht wurde?

Delphi-Quellcode:

case Antwort of 
  ja  : Wie könnt ich das anders realisieren?
  nein: Was mach ich falsch?
end;

:-D

[thkerkmann]

Hi,

nein, mach es nur einmal im FormActivate, das sollte eigentlich reichen.

Gruss

[Helmi]

Zitat:

Zitat von thkerkmann

nein, mach es nur einmal im FormActivate, das sollte eigentlich reichen.

Hallo,

das nutzt leider nichts.
Bleibt gleich groß

[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);

[Helmi]

Hallo,

hattest du auch was im OnDrawItem drin?

Ich hatte deinen Code getestet - nur hat sich nichts verändert.
Es bleibt so groß wie die Combobox ist.

[Lannes]

Hallo,

ja, hatte in einem neuen Projekt die beiden Tipps der Schweitzer zusammengebaut.

[Helmi]

kannst mir mal dein projekt geben?

[MacGuyver]

Moin Lü :hi:

Ich habe einfach mal eine ComboBox genommen und nur das Teil eingebaut:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  cbx.Perform(CB_SETDROPPEDWIDTH, 200, 0);
end;

So klappt das schon.

[Helmi]

Hallo,

anbei mal ein Testprogramm
zusammengesetzt aus den Codes der Schweizern
und so gehts nicht!

[EDIT]
Jetzt hab ich es rausgefunden - man kann die DropDown-Liste nicht kleiner machen als das ComboBox.Width ist - größer kein Problem!
[/Edit]

[MacGuyver]

:wall:
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.