Problema Básico...o no?
 

Hola Amigos!

Estoy haciendo un Autorun para un proyecto de la Universidad (En Delphi 6 Personal Edition :)), el problema es que cuando uso más de un formulario tengo problemas para terminar la aplicación.

Para pasar de un formulario a otro uso:

form1.hide;
form2.show;

despues si cierro el form2 quedo sin control para cerrar el programa, a menos que use Ctrl+F2. :(

Por cierto, cuando regreso del form2 al form1 y lo cierro, la aplicación termina con normalidad.

La pregunta del Millon de Euros, Dolares, Pesos, Etc...

Como debo pasar el control entre formularios para que cuando cierre el form2 se termine la aplicación?

:confused::confused::confused:

Mil gracias por la Ayuda!

Héctor.
Santiago - Chile.

Una respuesta
 

En el evento OnClose del form2 debes poner:

Código Delphi [-]
Application.Terminate

La verdad es que no me acuerdo si era Terminate o Finalize... (no tengo Delphi abierto en este momento) pero una de esa o similar es.

SaludosDelphius, Te lo ganaste:p

Ha... una aclaración....
 

La explicación de esto es sencilla....
Delphi interpreta que el form1 es la ventana principal, y como tu la ocultas... no "puedes tener acceso" para finalizar la ejecución. La otra vía es que vuelvas ha hacer visible form1.

Gracias,... hector_etv envíamelo al dinero por disquette o cd...:D :D

Otra solución aparte de la de Delphis, que es totalmente válida.

Si en realidad tu formulario principal es el Form2, puede cambiar las propiedades del proyecto para que sea Form2 sea "Main Form".

y al form1 lo llamas en el mismo dpr, validas lo que necesites y luego destruis el formulario.

Gracias a todos por sus respuestas!!!

:p:p:p

resp
 

Por no en v3ez de usar .show .hide No creas la forma en el emomento qu ela necesites y asi ahorras memoria y te evitas complicacion.

1. primero deja que delphi cree la formas que siempren debe n estar en memori atales como la principal y el datamodulo. El resto la creas asi

Código Delphi [-]
With TNombreClaseDelaforma.Create(Self) Do try
    Showmodal;
  Finally
    Free;
End;