Ver Mensaje Individual
  #2  
Antiguo 31-10-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola lucasart.

Si te interpreto bién y la varible f_id_Ajuste es pública al segundo Form, deberías tener el valor en el Evento OnShow del Form2 ya séa declarada como variable global o en la sección public de Form2.

Hice una prueba simple y obtengo el valor sin problemas. Fijate si el código te orienta en algo.
Form1:
Código Delphi [-]
uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    f_id_Ajuste:= 999;
    ShowModal;
  finally
    Free;
  end;
end;

Form2:
Código Delphi [-]
type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
  public
     f_id_Ajuste: Integer;
  end;

var
  Form2: TForm2;
  // f_id_Ajuste: Integer ( igual funciona si la situás aca )
implementation {$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  Caption:= IntToStr(f_id_Ajuste);
end;

Si no malentendí tu planteo, me animaría a decir que el problema está en el procedimiento LimpiarCampos...

Saludos.

Última edición por ecfisa fecha: 31-10-2010 a las 00:34:18.
Responder Con Cita