Combobox vergrößern

[Micha]

Hallo zusammen,

ich habe wiedermal eine Frage zu ComboBoxen.

Und zwar möchte ich, dass das (meist) weiße Feld der ComboBox nach rechts größer wird, wenn ich auf den Pfeil klicke.
Der Pfeil soll aber an seiner ursprünglichen Position bleiben.

D. h., nochmal kurz: einfach das weiße Feld vergrößern.

[LoL]

warum vergrößerst du nicht die combobox?

mfg christoph

[Sharky]

Zitat von LoL:

warum vergrößerst du nicht die combobox?

mfg christoph

Ich denke LoL möchte so etas wie im Bild zu sehen.

Aber wie man das lösen könnte ist mir nicht bekannt. Ausser selber basteln.

[Micha]

Lol hat zwar nicht das Problem, sonder Micha, aber
genau Sharky, so meine ich das.

Ich habe das schon mal gesehen. Es muss gehen.

[LoL]

hi

das glaube ich weniger. ich denke nicht das das mir einer standart-komponente geht, aber mit einer eigen bestimmt!

gruß christoph

[FBrust]

Hallo,

ich hatte mal das gleiche Problem.
Versuchs mal im Dropdown-Ereignis der Combobox mit

Code:

SendMessage(Combobox1.Handle, CB_SETDROPPEDWIDTH, 200,0);

Hier wird die Listenbreite der Combobox auf 200 Pixel gesetzt.

Ach ja, die Unit "Messages" musst Du noch einbinden.

HTH

Frank

[Sharky]

Zitat von FBrust:

Code:

SendMessage(Combobox1.Handle, CB_SETDROPPEDWIDTH, 200,0);

Cool, wuste ich auch noch nicht. Geht wunderbar.

[Micha]

Hey, danke.
Echt klasse.

Hab aber gleich noch ne Frage:
Kann man es dann auch so einstellen, dass es keine bestimmte Breite ist, sondern eben die Länge des Textes?

[Tpercon]

Dann mußt du erstmal mit TextWidth in einer Schleife die Größe des breitesten Eintrages holen.

Delphi-Quellcode:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var i, textwidth: integer;
begin
  textwidth := ComboBox1.Width;
  for i := 0 to ComboBox1.Items.Count - 1 do begin
    if ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]) > textwidth then begin
      textwidth := ComboBox1.Canvas.TextWidth(ComboBox1.Items.Strings[i]) + 10;
    end;
  end;
  SendMessage(Combobox1.Handle, CB_SETDROPPEDWIDTH, textwidth, 0);
end;

[Micha]

Danke euch allen für eure schnelle und kompetente Hilfe.