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;