Como crear campos de lookup en tiempo de ejecución

[[David]]

Hola

Alguien sabe como se crearia un campo de lookup en tiempo de ejecución . Es decir crearlo por código , en lugar de hacer doble clic sobre la Query en el editor de campo , darle al botón derecho , nuevo ....

Un saludo

[[Lepe]]

Tienes que crear un objeto TField y asignar sus propiedades, mira en tiempo de diseño como se llaman las propiedades y así sabrás cuales tienes que tocar.

Crear el TField, será como otro objeto cualquiera, suponiendo que lo tienes en el Query1:

Código Delphi [-]
var q : TField;
begin 
  q := TStringField.CReate(query1); 
// aquí usamos polimorfismo, es decir, declaramos el campo como TField
// pero después podemos crear un campo de texto, integer, float, etc
// ya que todos heredan de TField.

//consulta la ayuda sobre TStringField, TIntegerField, etc.

Si creas en tiempo de diseño el campo Lookup y lo configuras, podrás ver qué Clase es la que debes usar TStringField o TintegerField, etc.

Saludos