Combobox Selektiertes Item in Edit1.text schreiben

[WizoHulk]

hallo, lange Rede kurzer Sinn.

Ich hab eine Combobox und eine Editfeld, wo ich per click
den Inhalt des editfeld ind die Combobox schreibe.

Delphi-Quellcode:

procedure TForm1.BtnEditTextClick(Sender: TObject);
var
   LText : String;
begin
   LText := eComboAddText.text;
   cbOpenForm2.Items.Add(LText);
  eComboAddText.text := '';

end;

Nun will ich das ausgewählte Item in der Combobox im Editfeld anzeigen Lassen.
Das haut soweit nicht hin, da er wenn er was anzeigt zwei schwarze Balken mit anzeigt.

Delphi-Quellcode:

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

[DeddyH]

eComboAddText.text := cbOpenForm2.Items[cbOpenForm2.ItemIndex]; Natürlich funktioniert das so nur, wenn der Text der ComboBox auch in den Items gespeichert ist.

[WizoHulk]

danke...
ich hatte immer vergebends das selectItem gesucht, aber anscheind is dies nur bei VB..

[mkinzler]

In Delphi heisst diese Eigenschaft halt .ItemIndex, sollte aber das Selbe sein.

[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.