Código Delphi [-] procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0:begin DblookUpCombobox1.ListField:='Company'; DblookUpCombobox1.KeyField:='Company'; end; 1:begin DblookUpCombobox1.ListField:='addr1'; DblookUpCombobox1.KeyField:='addr1'; end; end; end;
procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0:begin DblookUpCombobox1.ListField:='Company'; DblookUpCombobox1.KeyField:='Company'; end; 1:begin DblookUpCombobox1.ListField:='addr1'; DblookUpCombobox1.KeyField:='addr1'; end; end; end;