Pasar datos de un DBLookupComboBox a un TEdit

[lucas05]

Hola, espero que puedan ayudarme, tengo dos formularios:
En el form1 tengo un DBLookupComboBox(muestra distintos productos), conectado a la base de datos con un ZQuery y un DataSource.
En el form2 tengo un TEdit

Lo que intento hacer es que cuando selecciono un producto del DBLookupComboBox(form1) y presiono un button(form1), el producto seleccionado se muestre en el TEdit del form2


Desde ya muchas gracias.

[ecfisa]

Hola Lucas.

Según entiendo, podrías hacer:

procedure TForm1.Button1Click(Sender: TObject);
begin
if DBLookupcomboBox1.Text > '' then
with TForm2.Create(Self) do
begin
Edit1.Text := DBLookupComboBox1.Text;
ShowModal;
end;
end;


Saludos.

[lucas05]

Gracias ecfisa, esa solución funciona bien.