Hola FabianSiza.
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientDataSet1.GetFieldNames(ComboBoxEx1.Items);
ComboBoxEx1.Style:= csExDropDownList;
end;
procedure TForm1.ComboBoxEx1Change(Sender: TObject);
begin
with TComboBoxEx(Sender) do
if ItemIndex <> -1 then
Edit1.Text:= ClientDataSet1.FieldByName(Items[ItemIndex]).AsString;
end;
Y si por ejemplo, preferis mostrarlo ante el evento
OnClick de un
TButton:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
with ComboBoxEx1 do
if ItemIndex <> -1 then
Edit1.Text:= ClientDataSet1.FieldByName(Items[ItemIndex]).AsString;
end;
Saludos