Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

CAMPO - CRIANDO CAMPO LOOKUP EM TEMPO DE EXECUÇÃO

//vitor scarso
var Nome : string;
begin
  with TStringField.Create(ADODataset1) do
  begin
    FieldName := 'MeuCampoLookup';
    FieldKind:= fkLookup;
    DataSet := ADODATASET1;
    KeyFields:= 'CIDADE'; //Campo Chave
    LookUpDataset:= ADODATASET2;
    LookUpKeyFields:= 'CODIGO'; //Campo Chave
    LookUpResultField:= 'NOMECIDADE'; //Resultado da campo lookup criado
    DbLookupCombobox1.DataField:= FieldName;
    ADODataset1.FieldDefs.Add('ADODATASET1MeuCampoLookup', ftString, 20, false);
  end;
  DbLookupCombobox1.DataSource:= Datasource1;
  ADODataSet1.Open;
end;