TField em RUN TIME

Delphi

09/06/2004

Caros Colegas

Como faço pra criar um TField do tipo lookup em RUN TIME..

agradeço antecipadamente

Cabelo


Cabelo

Cabelo

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/06/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var T: TStringField;
begin
   if qryCliente.Active then
      qryCliente.Close;
   T := TStringField.Create(Self);
   T.fieldName := ´Lookup1´;
   T.FieldKind := fkLookup;
   T.DisplayLabel := ´Lookup 1´;
   T.Visible := True;

   T.KeyFields:=´Campo1´;

   T.LookupDataSet:=Table1;
   T.LookupKeyFields:=´Codigo´;
   T.LookupResultField:=´Descricao´;

   T.Name := qryCliente.Name + T.FieldName;
   T.Index := qryCliente.FieldCount;
   T.DataSet := qryCliente;
   qryCliente.FieldDefs.UpDate;
   qryCliente.Open;
end;



GOSTEI 0
POSTAR