Cuando los controles TRAYICON delphi, cómo minimizar la ventana a la bandeja del sistema

escriba 
  TForm1 = clase (a TForm)
   privada 
    Procedimiento WMSysCommand ( var Msg: TWMSysCommand); Mensaje la WM_SYSCOMMAND;
   End ; 
 
  ...... 
   
Procedimiento TForm1.WMSysCommand ( var Msg: TWMSysCommand);
 el comenzar 
  hereda ;
   IF Msg.CmdType = SC_MINIMIZE el entonces  / / ventana recibe un mensaje minimizar 
  el inicio 
    Application.Minimize; // programa de minimización de 
    ShowWindow (Application.Handle, SW_HIDE); // ocultar la barra de tareas icono de 
  final ;
 Fin ;

Recuerde ventana de restauración, haga clic o doble clic en el TrayIcon caso, de lo contrario no se puede ver el programa, sólo se puede utilizar el Administrador de tareas a fin.

 

respuesta de la aplicación a la noticia, y si el mensaje se muestra icono minimizado, ocultar la ventana principal y la aplicación.