Ver Mensaje Individual
  #10  
Antiguo 02-11-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 de nuevo lucasart.

Me parece que me apuré a alegrarme, quedaba tan sencillo ajustando la propiedad Visible...
Despues de tanta prueba olvidé poner como MDIChild a Form2, fué por eso que no me dío error. Pero no se puede ocultar un Form MDIChild.

Esto no funciona:
Código Delphi [-]
  with Form2 do
  begin
    Visible:= False;
    f_id_Ajuste:= Num;
    Visible:= True;
  end;

La solución hasta el momento, sigue siendo:
Código Delphi [-]
procedure TForm2.FormCreate(Sender: TObject);
begin
   OnShow:= nil;
end;

class procedure TForm2.Mostrar(Num: Integer);
begin
  if not Assigned(Form2) then
    Form2:= Create(nil);
  with Form2 do
  begin
    f_id_Ajuste:= Num;
    OnShow:= FormShow;
    FormShow(nil);
  end;
end;

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

Si encontrás alguna otra solución, agradecido si la pones.

Un saludo.

Última edición por ecfisa fecha: 02-11-2010 a las 22:15:23.
Responder Con Cita