Einzelnen Beitrag anzeigen

TPok

Registriert seit: 19. Jul 2004
Ort: Eisenach
25 Beiträge
 
Delphi 2005 Professional
 
#1

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

  Alt 29. Mär 2005, 00:23
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
Stephan Fietzek
  Mit Zitat antworten Zitat