pasar datos de un form a otro form

[vroa74]

Hola estoy usando BDS 2006.
he leido los hilos relacionados con este tema más no ha funcionado.

Quiere pasar un valor o arios valores de un form a otro form.

los forms esta ligados(esta declarados mutuamente para poder se utilizados)


en form1 tengo declarada variables las cuales son llamadas y modificadas en el form2

al regresar al form 1 las variables no fueron modificadas y el valor que me interesa consevar del form 2 se pierde.

que puedo hacer ????????
deseo conserver el valor.

asi abro el form2:

Código Delphi [-]
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); // asigno la variable que se cambio en el form2 a una etiqueta para saber si el valor se pierde.

[[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

[[Caral]]

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