Ver Mensaje Individual
  #4  
Antiguo 26-01-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola morfeo21, como te indican deberías utilizar la función Assigned, pero si en el OnClose de tu MDIChild liberaras con Action:=caFree; solo va a funcionar la primera ves ya que no te lo pone a nil, por lo que la siguiente ya no se abriría tu formulario.

Código Delphi [-]
//En el OnClose liberas con FreeAndNil
procedure TForm2.FormClose(.....);
begin
 FreeAndNil(Form2);
end;
 
//Y en la llamada a tu MDIChild
if Not Assigned(Form2) then
  Form2:=TForm2.create(Self);

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita