Ver Mensaje Individual
  #7  
Antiguo 12-10-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
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);  // 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.

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.
__________________
Piensa siempre en positivo !
Responder Con Cita