A mi me funciona perfectamente el ejemplo que has puesto en BDS2006.
Creo que deberías aclarar varios puntos.
Cita:
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); end;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.
Cita:
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.