Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 21-10-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Primero que nada necesitas de una componente que te permita manejar iconos en el área de notificación (la del reloj). Para ello puedes usar TRxTrayIcon de las librerías RX. A la componente le asignas el icono que quieras y un PopupMenu que tendrá los ítemes que desees mostrar al dar click derecho en el icono.

En el evento OnCloseQuery del formulario principal pones


Código Delphi [-]
CanClose := DoClose;

if CanClose then
begin
  Hide;
  RxTrayIcon.Active := true;
end;

donde DoClose será una variable booleana (normalmente en false). Con esto impides que se cierre el formulario y en su lugar se oculte y haces visible el icono.

Las opciones que quieras poner en el menú serán a tu gusto pero muy posiblemente requieras como mínimo dos:

Mostrar - para volver a mostrar el formulario
Salir - para terminar (aquí sí) la aplicación

En la segunda opción pones DoClose en true para que el evento OnCloseQuery te permita cerrar el formulario.

Finalmente, en el evento OnShow del formulario desactivas el icono:


Código Delphi [-]
RxTrayIcon.Active := false;

a menos que desees que esté visible aún con el formulario a la vista.

// Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:19:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi