Combobox Selektiertes Item in Edit1.text schreiben

[himitsu]

Zitat:

eComboAddText.text := '';

wozu das? (in cbOpenForm2Change)

Delphi-Quellcode:

procedure TForm1.cbOpenForm2Change(Sender: TObject);
begin
  eComboAddText.text := cbOpenForm2.Text;
end;

Funktioniert immer, auch wenn mal kein Item aus der Liste ausgewählt, also ItemIndex = -1 ist.

Alternativ siehe DeddyH Beitrag #2 ... aber nur wenn die ComboBox keinen Freitext erlaubt und immer ein Eintrag ausgewählt ist.