Combobox Change

[schniede]

0815 würde ich sagen so.

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=combobox1.Text;
end;

oder so

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=combobox1.items[combobox1.itemindex];
end;