Saber origen formulario.

[toorbye]

Hola, tengo un formulario donde tengo un dbgrid que muestra una serie de datos, este formulario puede ser llamado desde varios formularios. Me gustaria guardar en una variable de dicho formulario el formulario que lo llamo. No se si me explico. Me gustaria registrar en el formulario con el dbgrid el formulario de procedendia o sea el formulario desde el cual fue abierto.

A ver si me podeis ayudar.Un saludo.

[epuigdef]

Buenas!


Puedes poner en el formulario una variable en la parte public para poderla acceder en el momento de la creación. cuando lo crees asignas el nombre desde donde lo llamas.

Por ejemplo, si la variable se llama origen, en la llamada al formulario puedes hacer esto:

Código Delphi [-]
  formulario := TFrmPrueba.create(nil)
  try
    formulario.origen := 'Formulario3';
    formulario.showmodal;
  finally
    formulario.free;

Un saludo

Edu

[toorbye]

El problema que tengo es que al llamar a dicha variable goblal en mi caso llamada formulario las propiedades como showmodal si que estan presentes, pero en mi caso me gustaria utilizar un dbgrid que hay dentro de ese formulario, y no aparece, esto seria lo q queria hacer:

formulario.Dbgrid1.Fields[0].Value := GridArtBusq.Fields[0].Value;

Gracias

[epuigdef]

Si quieres acceder a los componentes del formulario lo tienes que hacer a partir de la variable del tipo del formulario que tienes creada, no a partir de la variable de dentro del formulario..


Me parece que me estoy explicando fatal, pasame el código que utilizas para llamar al formulario y te indico mejor.

Edu

[toorbye]

Ahi va el codigo,

FrmBusqArt:= TFrmBusqArt.Create(self);
FrmBusqArt.EdBuscar.text := TRIM(producto);
FrmBusqArt.formulario := FrmPedidos;
FrmBusqArt.ShowModal;

[epuigdef]

Vale, entonces lo que tienes que hacer es lo siguiente:

Código Delphi [-]
FrmBusqArt:= TFrmBusqArt.Create(self);
FrmBusqArt.EdBuscar.text := TRIM(producto);
FrmBusqArt.formulario := FrmPedidos;
 
FrmBusqArt.Dbgrid1.Fields[0].Value := GridArtBusq.Fields[0].Value;

FrmBusqArt.ShowModal;

Espero que te sirva

Edu