Ver Mensaje Individual
  #11  
Antiguo 28-11-2014
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Reputación: 22
Manuel Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
Tal vez tengas razón Josep, porque lo otro no tiene mucho sentido.
En ese caso, puedes coger un enfoque de cerrar la aplicación y volver a abrirla (1) o cerrar los formularios y lo que tengas abierto y volver a mostrar el formulario de Login (2); Algo así como volver al estado inicial.

En el caso (1) prueba con un botón y el siguiente código:

Código Delphi [-]
  // ------- Esto es para que te de tiempo a verlo ---------
  Self.Color := clNavy;
  Application.ProcessMessages;
  Sleep(1000);
  Application.ProcessMessages;
  Sleep(1000);
  Application.ProcessMessages;
  //-------------------------------------------------------------

  Application.Title := 'Cerrando...';
  Application.Minimize;
  // Se debe reiniciar?
  WinExec(PChar(ParamStr(0)), 1);
  // cerramos
  Application.Terminate;
  Exit;

Funciona perfecto, me lo habían pedido en alguna oportunidad, así que aprovecho la colaboración, gracias una vez más
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita