pasar datos de un form a otro form

[[eduarcol]]

y donde tienes declarado la variable Id_Dir en form2 o form1??

[vroa74]

La variable Id_Dir esta declarada en Form1
como publica para que sea accesible para form2.

[[eduarcol]]

porq no muestras el codigo donde la asignas??

[JoseAntonio]

La verdad no se entiende muy bien tu codigo, pero al parecer el f del tipo tform2 es una variable del tipo tform2 pero no es la misma Form2 de tu proyecto, quizas a eso se deba que tu codigo no funciona.

[vroa74]

En el form1

Código Delphi [-]
  private
    { Private declarations }
  public
        id_tit : integer;
        id_dir : integer;
        id_com : integer;
        id_tra : integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

Mando a llamar al form2

Código Delphi [-]
procedure TForm2.JvBitBtn4Click(Sender: TObject);
var f : tForm2;
begin
    f:= Tform2.Create(application);
    f.Image1.Picture.LoadFromFile(form1.logo);
 try
    f.ShowModal;
 finally
    f.Free;
    Label7.Caption :=IntToStr(id_dir);  // cuando regresa del form refreca el valor de la variable
 end;// fin del try
end;

Estabdo en el form2 esto es lo que sucede caundo oprimo el boton para asignarle el valor a la variable declarada en el form1.

Código Delphi [-]
procedure TForm2.JvBitBtn1Click(Sender: TObject);
begin
    form1.id_dir := strtoint(Edit1.Text);
end;

[[gluglu]]

A mi me funciona perfectamente el ejemplo que has puesto en BDS2006.

Creo que deberías aclarar varios puntos.

Mando a llamar al form2

Código Delphi [-]
procedure TForm2.JvBitBtn4Click(Sender: TObject);
var f : tForm2;
begin
    f:= Tform2.Create(application);
    f.Image1.Picture.LoadFromFile(form1.logo);
 try
    f.ShowModal;
 finally
    f.Free;
    Label7.Caption :=IntToStr(id_dir);  // cuando regresa del form refreca el valor de la variable
 end;// fin del try
end;

No sé si te has equivocado al copiar y pegar tu código aquí en este hilo. Entiendo que ese procedimiento debe encontrarse y estar declarado en el Form1.

Código Delphi [-]
try
    f.ShowModal;
 finally
    f.Free;
    Label7.Caption :=IntToStr(id_dir);

Label7.Caption no se va a actualizar con el valor de Id_dir que has modificado en el Form2 HASTA que se cierre el Form2. Así lo has decidido en tu código.

Cuando se cierra Form2, el caption de Label7 cambia correctamente al valor dado a id_dir en el Form2.

Lo dicho, por lo demás, a mi me funciona perfectamente.

Dime si no es así, y si necesitas aclarar algun tema adicional.

[vroa74]

Lo que has descrito es justo lo que necesito
lamentablemente a mi no me funciona
aun desconosco porque

[[gluglu]]

Revisa tu código.

Si lo deseas, pon aquí el código completo del Form1 y del Form2, si no es demasiado grande.

Te recomiendo por otro lado que intentes abrir un nuevo proyecto con las funciones básicas, y verás como debería funcionar. Algo debes de tener en tu código mal para que no te funcione tal y como explicas.

[[gluglu]]

Este es el ejemplo que tu mismo has puesto, simplificado al máximo.

Verás como funciona ....

Cuando cierras Form2, el Label1 en el Form1 cambia de valor, después de haber pulsa el Button1 en el Form2.

[vroa74]

mucha gracias por el ejemplo lo revise rapidamente
si pasa los valores mas sin embargo me di ceunta de un detalle
los valores que pasate solo son dato ente componentes.

El problema que tengo son en variables creadas por el usuario y al pasarlas de un form al otro las pierdo.

Quizas podria tener mas de un componente oculto dentro de mi form, mas eso no se me hace practico que cada vez que desee para un valor de una variable tenga que crear un componente no visible.

voy a hacer una ejemplo a ver si puede representar mi duda.

voy a editar este msg en 10 min.

[[Caral]]

Hola
Aqui tienes un ejemplo muy sencillo para pasar datos de un from a otro y viceversa.
Saludos