ComboBox Problem mit Änderung der Items und .text

[albi5678]

Hallo zusammen,

ich habe folgendes Problem:

Ich habe eine Combobox mit Style cdDropDownList. In dieser ComboBox habe ich nun die Sprachen des Programms hinterlegt. Z.B. Deutsch und Englisch. Wähle ich nun eine Sprache aus, so ändert sich der Inhalt der ComboBox und schreibt dann z.B. German und English in die Box rein. Das funktioniert auch alles soweit sauber, ich möchte nur, dass die Property .text immer mit der aktuellen Sprache gefüllt ist, was aber nicht klappt.

Ich ändere die ComboBox nachdem das OnSelect Event ausgelöst wurde sinngemäß folgendermaßen:

Delphi-Quellcode:

     cbLanguage.Items[0]:=('English');
     cbLanguage.Items[1]:=('German');
     cbLanguage.Text:=cbLanguage.Items[0];

Das sollte doch eigentlich funktionieren oder?

MfG
Michael

[Christian Seehase]

Moin Michael,

dazu musst Du die Eigenschaft ItemIndex setzen.

[albi5678]

Super, hat geklappt.

Vielen Dank :)

[s.h.a.r.k]

Zitat:

Zitat von albi5678

Delphi-Quellcode:

cbLanguage.Items[0]:=('English'); // <- Die Klammer '(' und ')' sind überflüssig.
cbLanguage.Items[1]:=('German');  // <- hier auch!
cbLanguage.Text:=cbLanguage.Items[0];

Zudem setzt der Zugriff auf die Elemente [0] und [1] voraus, dass schon mindestens zwei Elemente in der ComboBox enthalten sind. Wenn gar keines oder nur eines enthalten ist, so erhälst du einen Zugriffsfehler. Sicherer wäre folgender Code

Delphi-Quellcode:

cbLanguage.Items.Clear();         // Alle Elemente entfernen
cbLanguage.Items.Add('English');  // 'English' hinzufügen
cbLanguage.Items.Add('German');   // 'German' hinzufügen
cbLanguage.ItemIndex := 0;        // Ersten Eintrag auswählen -> 'English'

[DeddyH]

Und sollten es mal einige Einträge mehr werden, kann man das Ganze mit Combobox.Items.BeginUpdate und Combobox.Items.EndUpdate ggf. enorm beschleunigen.