Saber origen formulario.

[epuigdef]

Bien, me parece que ya lo entiendo. Lo que necesitas es asignar los valores en el grid que está en el formulario de ORIGEN (el que hace la llamada) no?


Entonces lo que puedes hacer es, en lugarde hacer el proceso en el formulario de destino, hacerlo en el de origen después del showmodal (lo tendrás que hacer en cada uno de los formularios origen:

Código Delphi [-]
FrmBusqArt:= TFrmBusqArt.Create(self);
FrmBusqArt.EdBuscar.text := TRIM(producto);
FrmBusqArt.formulario := FrmPedidos;
FrmBusqArt.ShowModal;
// suponemos que GridArtBusq está en este formulario (el de origen)
GridArtBusq.Fields[0].Value =FrmBusqArt.Dbgrid1.Fields[0].Value;

Edu

[toorbye]

No, es justamente lo contrario, desde un formulario abro otro(que lo quiero utilzar en varios formularios) y desde este formulario que puede ser llamado desde otros fomularios,quiero haciendo doble click, pasar el valor al formulario origen.

Mi idea es que al introducir un producto q no exista en un formulario, se abra otro con la lista de articulos,doble click en ese formulario y que pase el valor.

Creo q soy un desastre explicandome.... gracias de todos modos.

P.D: Con el codigo que me dices lo que consigo es justamente lo contrario, es pasar los datos de origen a destino, pero yo quiero pasarlos desde destido a origen. El principal problema reside a que al ser un formulario que puede ser llamado desde otros formularios y no desde uno fijo.

Podria hacerlo con un "if" o un "case" en el evento onDblClick pero quiero hacerlo de forma mas elegante.

if formulario = frmventas then
FrmVentas.Dbgrid1.Fields[0].Value := GridArtBusq.Fields[0].Value
else
if formulario = FrmStocks
FrmStocks.
Dbgrid1.Fields[0].Value := GridArtBusq.Fields[0].Value

[epuigdef]

No, si ya te he entendido, pero el concepto es que debes RECOGER el dato, en lugar de DEJARLO.

el proceso debe ser el siguiente:

en el formulario hijo (que tiene la grid que realiza la búsqueda):
declara una variable String pública llamada resultado.
en el doubleclick pones lo siguiente:
resultado := GridArtBusq.Fields[0].Value:
modalresult := mrok
// esto asigna el valor de retorno y cierra la ventana


en los formularios que realizan la llamada:
FrmBusqArt.showmodal

// recogemos el valor
mivalor := FrmBusqArt.resultado

FrmBusqArt.free


Edu

[toorbye]

ya entendiendo muchas gracias!!!