cerrar sesión en aplicación

[vtdeleon]

Saludos

Este codigo

Código Delphi [-]
 Application.Initialize;
Application.CreateForm(TmoduloDatos, moduloDatos);
frmInicio:=TfrmInicio.Create(nil);
if frmInicio.ShowModal = mrok then
begin
Application.CreateForm(TfmPrincipal, fmPrincipal);
Application.Run;
end
else
Application.Terminate;

ya no te servira de mucho.
Has un codigo que haga:
1) Oculte la ventana principal
2) Muestre la pantalla de acceso:
Acepta: 2.1) Muestra el Formulario Principal
Cancelar:2.2) Cierra la aplicacion completa
....
....

[jano]

frmInicio --> es el formulario de logueo
fmPrincipal --> es el formulario principal MDI

Ahora mi problema es que si solo oculto el formulario fmPrincipal y este tiene abiertos forms MDIChild, la siguiente vez que lo muestro dichas ventanas siguen ahi. De todos modos preferiria crear nuevamente ese form, en vez de solo ocultarlo.

Probe con este código, pero se queda en un bucle infinito...
la variable Finalizar la cambio a true desde el evento OnClose de fmPrincipal

   Finalizar:=false;
   while not Finalizar do
   begin
 	frmInicio:=TfrmInicio.Create(nil);
 	if frmInicio.ShowModal = mrok then
 	begin
 		Application.CreateForm(TfmPrincipal, fmPrincipal);
 		Application.Run;
 		fmPrincipal.Free;
 	end;
 	frmInicio.Free;
   end;
   Application.Terminate;

[vtdeleon]

Saludos
Si el problema es los formularios hijos puedes hacer esto antes del paso 1:
0) Cerrar todas las ventanas hijas activas

Código Delphi [-]
var
  n:integer;
Begin
  for n:= frmprincipal.MDIChildCount-1 downto 0 do
       frmprincipal.MDIChildren[n].Free;

Empezado por Mi

Has un codigo que haga:
1) Oculte la ventana principal
2) Muestre la pantalla de acceso:
Acepta: 2.1) Muestra el Formulario Principal
Cancelar:2.2) Cierra la aplicacion completa

[jano]

Gracias por las respuestas, pero lo que necesito es que se vuelva a mostrar la ventana de logueo y q la ventana principal se destruya, ahora no tengo idea de como hacer el codigo para eso, lo intente pero se queda en el bucle....

[[Lepe]]

Si la ventana principal es la MDI, cuando se destruye, se cierra la aplicación, y este efecto no puede cambiarse.

Si pones como ventana principal la de logueo, entonces jamás puedes destruir esa ventana, solo podrás ocultarla, y estará siempre en memoria.

Lo que yo haría es lo siguiente:
- Ventana principal la MDI.
- Cuando se muestre la de logueo:

• Cierras las ventanas hijas que haya (cancelando los cambios si los hay).
• Pones invisibles los botones del Toolbar que sean "sensibles" y dejas visibles los menús común a todos los usuarios.

- Haces un ShowModal de la ventana de logueo.
- Si cancela la ventana de logueo: Application.Terminate y corriendo que están levantando tabiques . Si aceptan la ventana de logueo, según el nuevo ususario, muestras los botones de la barra de herramientas y menús que sean oportunos.

saludos