Pasar datos de un form a otro

[astrosnik]

Hola eficsa gracias por responder te pongo el codigo del form 2 y del form5

Código Delphi
en form 2

Código Delphi [-]
implementation
USES
UNIT4, UNIT5;

en form 5:

Código Delphi [-]
implementation
uses
unit2;
 
procedure tform5.datos(sender: TObject);
begin
form2.Edit2.Text:=adoquery1.fieldbyname('perro').Asstring;
end;

el procedimiento datos es llamado por el evento ondblclick de un bdgrid del form5
y el error que da es el siguiente access violation at adress 004bebf9 in module proyect.exe. read of address 0000036c.

a ver si te sirve esta informacion.
pd si pongo la etiqueta para remarcar el codigo dice que no se me permite poner imagenes tendre cara de malo?

[ecfisa]

Hola astrosnik.

¿ Y Form2 ya fué creado cuando lo invocas en Form5 ?

Para salir de dudas, proba si de este modo desaparece el error:

Código Delphi [-]
implementation
uses
  unit2;
 
procedure tform5.datos(sender: TObject);
begin
   if Assigned(Form2) then
     form2.Edit2.Text:=adoquery1.fieldbyname('perro').Asstring;
end;

Saludos.

[astrosnik]

Gracias por tu ayuda ecfisa te comento:
La solucion que me has posteado si bien no da error tampoco produce cambios la mas raro es que el form2 es el que abre el form5 mediante un boton primero los abria en modal pero lo he cambiado por si era eso lo que producia el error el form 2 queda abierto mientras el form5 se ejecuta.

Muchas gracias por la ayuda compañero

[ecfisa]

Hola astrosnik.

La solucion que me has posteado si bien no da error tampoco produce cambios

En realidad no era una solución sino mas bién una prueba para identificar el problema.

Ahora intentalo de este modo:

Código Delphi [-]
implementation
uses
  unit2;
 
procedure tform5.datos(sender: TObject);
begin
  if not Assigned(Form2) then
    with TForm2.Create(nil) do
    try
      edit1.Text := adoquery1.fieldbyname('perro').Asstring;
      ShowModal;
    finally
      Free;
    end;
end;

Saludos.

[astrosnik]

Hola de nuevo sobre todo agradecerte ecfisa tu ayuda porque empieza a darme un poco de luz

Código Delphi [-]
implementation
uses  unit2; 
procedure tform5.datos(sender: TObject);
begin  
  if not Assigned(Form2) then    
    with TForm2.Create(nil) do    
    try      
      edit1.Text := adoquery1.fieldbyname('perro').Asstring;      
      ShowModal;    
    finally      
      Free;    
    end;
end;

esto hace que me de un error al no encontrar el field del query aun haciendo referencia al form donde se encuentra asi que despues de muchas pruebas y mas errores he llegado a una conclusion ( casi seguro erronea dadas mis limitaciones) el problema me parece que viene porque al ser formulrios modales tienen el control de la aplicacion y no permiten manipular otro formulario por error llegue a una solucion que seguramente no sera todo lo limpia que debia, la voy a explicar por si alguno quiere corregirla o si le sirve de utilidad a alguien.

la solucion es usar otro form o un modulo que haga de puente en mi caso utilizare form4 que es el main de la aplicacion en el declaro una variable global y le asigno el valor en el procedimiento del form5

Código Delphi [-]
procedure tform5.datos(sender: TObject);
begin
  form4.perro:=adoquery1.FieldByName('perro').AsString);
  self.close
end;

despues doy la orden de cerrar el formulario y en la parte donde cree el form5

Código Delphi [-]
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  varforms:tform5;
begin
  varforms:=tFORM5.Create(self);
  try
    varforms.Showmodal;
  finally
    Edit2.Text:=form4.perro;
    varforms.Free;
  end;

Aqui pasamos el valor de la variable puente al form 2 esto funciona perfectamente.
Si alguien se le ocurre como mejorar lo agradecere la ayuda asi como cualquier consejo que me haga aprender.

[ecfisa]

Hola astrosnik.

En realidad no entiendo bién el problema por que si asignas el valor a Form2.Edit1 antes de mostrarlo modalmente, cuando llames al método ShowModal tiene que aparecer el valor en Form2.Edit1 (debo aclarar que por tu código pensé que el query estaba en Form5 y no en otro).

Pero de todos modos me parece conveniente poner tus querys, datasets, etc. en un TDataModule accesible a las unidades que lo precisen.

Saludos.

[astrosnik]

Efectivamente ecfisa el query esta en el form5 quizas no me explique bien mi aplicacion tiene el form4 que es el main desde el cual abro el form2 en modal y desde el form2 abro el form5 en modal tambien el form2 no se cierra sigue abierto latente hasta que el form5 finalice quizas por eso no me deja manipularlo si se os ocurre cualquier otra solucion estare encantado de aprenderla