ComboBox - Breite der Popup-Liste und angez. Text ändern

[TPok]

Hallo liebe DPler,

bei meinem aktuellen Projekt haben mir die Beiträge hier schon oft aus der Klemme geholfen, aber jetzt habe ich zwei Probleme, zu denen ich noch keine Lösung finden konnte.

Ich habe eine ComboBox mit einem Inhalt (Items) der z.B. wie folgt aussieht:
10 - aaaa
11 - bbbb
12 - cccc
Der Nutzer soll nun eines dieser Items auswählen. Deshalb ist ComboBox1.Style := csDropDownList Die ComboBox hat eine geringe Breite, da sie im zugeklappten Zustand nur die Zahl ohne erklärenden Text anzeigen soll.

1. Die PopUp-Listbox ist immer genauso breit, wie die ComboBox. Ich würde diese gerne breiter darstellen, da die Items sonst nicht vollständig angezeigt werden können. Leider scheint diese Möglichkeit nicht implementiert zu sein.

2. Nach dem Auswählen eines Items (und zuklappen der Box) soll nur noch der Zahlencode ohne den erklärenden Text angezeigt werden. Ich dachte an etwas wie:

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ComboBox1.Text := Copy(ComboBox1.Items[ComboBox1.ItemIndex], 1, 2)
end;

Aber so geht es nicht.

Für kurzfristige Lösungsvorschläge wäre ich sehr dankbar.

Gruß,
Stephan

[kiar]

versuche mal

Delphi-Quellcode:

length(text) * font.size;

raik

[TPok]

Ich glaube, das hilft mir nicht weiter, da ich die breite der Popup-Liste ja nicht gezielt beeinflussen kann.

Gruß,
Stephan

[TPok]

Hallo nochmal,

hab die Antwort jetzt selbst gefunden. War wohl gestern doch zu spät.
Die Lösung gibt es hier http://www.delphipraxis.net/internal...ct.php?t=10279

Gruß,
Stephan