ComboBox.Items-Änderung löscht ComboBox.Text

[sx2008]

Steht das Property Style auf csDropDownList?
Falls ja, bleibt der VCL nichts anderes übrig, als den ItemIndex auf -1 zu stellen, sobald du den Items eine neue Stringliste zuweist:

Delphi-Quellcode:

combobox.Style := csDropDownList;
combobox.Items := stringliste;
combobox.ItemIndex := 2;  // jetzt ist .Text = Items[2]

combobox.Items := anderestringliste;
// Ist das Gleiche wie
combobox.Items.Assign(anderestringliste);
// Innerhalb von [TStringList].Assign() wird [TStringList].Clear aufgerufen
// Das Clear triggert das Event OnChange, dass wiederum in TCustomComboBox empfangen wird
// da dann combobox.Items.Count = 0 ist
// muss der ItemIndex auf -1 gesetzt werden

Workaround: ItemIndex vor Zuweisung an Items merken und danach wieder setzen