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:

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! :D

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:

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.

[Lee500]

Hallo,

Bin durch die Sufu auf diesen Artikel gekommen. Ich benutze eine mbTBXComboBox und wenn ich den oben genannten Code verwende, wirft mir mein Delphi6 einen Error von wegen Undefinierter Bezeichner 'CB_SETDROPPEDWIDTH'. Muss ich irgendeine Unit einbinden oder geht das mit den mbTBX-Komponenten nicht?

Gruß
Lee500

[Luckie]

Du musst die Unit Messages einbinden. In der sind alle Windows Nachrichten definiert.

[Lee500]

Ah läuft! Danke

[DeddyH]

Zitat:

Zitat von FBrust

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

Es ist ja nicht so, dass es nicht da stand :roll:

[alzaimar]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von FBrust

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

Es ist ja nicht so, dass es nicht da stand :roll:

Ja, aber das war 2003. Seitdem hat sich viel getan. :mrgreen: Und außerdem hätte man scrollen müssen! :stupid: