Ver Mensaje Individual
  #4  
Antiguo 17-04-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Tal como yo lo veo puedes hacer lo que he dicho más arriba. Ten en cuenta que no tienes que codificar nada, es decir, que al mostrar un formulario "modalmente" este ya retorna de por sí un resultado: "mrCancel", "mrOk", etc.

De ahí que puedas mostrar el formulario 2 desde el formulario 1, y, si se cierra el formulario 2 con "algo" distinto a "mrOk"... nada te impide cerrar el formulario 1. Es lo mismo de antes:

Código Delphi [-]
// Creo una instancia del formulario 2
with TForm2.Create(nil) do
try
  // Muestro el formulario modalmente y compruebo si el resultado
  if (ShowModal() <> mrOk) then
  begin
    // Si el resultado es distinto de "mrOk"... cierro el formulario 1
    Form1.Close();
  end;
finally
  Free;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita