Ver Mensaje Individual
  #6  
Antiguo 01-09-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
Si form1 llama a form2 de forma modal, no podes desde este cerrar a form1...

Sin embargo, podes hacer que se cierre form2 y en form1 evaluar una condición para cerrarlo.

En form2, por ejemplo, al pulsar el botón:

Código Delphi [-]
Procedure TForm2.Button1Click(Sender : TObject);

Begin
  ModalResult := mrYes; //por ejemplo, obliga a que se cierre form2
end;

En form1, creas form2, y cerras form1 asi:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender : TObject);

Begin
  Form2 := TForm2.Create(Self);
  if Form2.ShowModal = mrYes Then
    Close;
end;

Dejando siempre los eventos OnClose como están.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita