Algo relacionado con el tema. Sabe alguien si hay manera de forzar que el icono aparezca fijo al lado del reloj y no oculto, de manera que se tenga que pulsar la tecla para visualizarlo?

Gracias.

Me contesto yo misma, no sé si existe alguna forma desde Delphi, pero he visto que se puede personalizar la lista de iconos ocultos. Pues aquí le indico al programa que muestre el icono y las notiificaciones así aparece fijo.

Hola mblascog,

usa el componene TTrayIcon
http://docwiki.embarcadero.com/CodeE...yIcon_(Delphi)

Tambien si tienes Jedi instalado tiene uno

Gracias rocksoft. Finalmente he usado el trayicon de las Jedi. Va fantástico.
Mi intención es que el programa que estoy desarrollando inicie con las Windows, hasta ahí ningún problema, pero me gustaría que se iniciara en segundo plano, es decir, que apareciera el icono a la barra de tareas y caso de querer acceder al problema, fuese con dobleclick.
Y la verdad, no sé como empezar. Tienes alguna idea?

Gracias

Buenas,

disparando a ciegas, inicia la aplicacion minimizandola, creo que existe una propiedad del trayicon que permite las dos opciones, esconder y poner en la barra.

Gracias rocksoft, he estado buscando y no soy capaz de encontrar la opción que minimizar o esconder. Corrijo, existe la propiedad HideApplication, pero da error: Cannot change Visible in OnShow or OnHide

Hola,

con

Código Delphi [-]
procedure Tu_Form.FormShow(Sender: TObject);
begin
self.WindowState:=wsMinimized;
end;

lo minimizas

Rocksoft, esto minimiza la aplicación, y yo la quisiera al systray, y yo quisiera sólo el icono al lado del reloj.
Gracias

És más, por las dudas, lo acabo de probar y con el tryicon se hace un lío. El programa se minimiza, cosa que no quiero, pero al maximizar. Intento maximizar y aparece una pequeña pantalla a la parte inferior izquierda de la pantalla, con los botones de restaurar, maximizar o cerrar. Restauro para abrir de nuevo el programa, se ve un momento y desaparece. En el systray aparece el icono.

Y los ejemplos de escafandra y ecfisa, qué tal.

Casemiro, son dos cosas diferentes, colocar el icono en el systray ya lo he conseguido. Lo que busco ahora es iniciar el programa al iniciar Windows y que aparezca en segundo plano, es decir, tener que clicar el icono del systray para acceder al programa.
Iniciarlo con las Windows ningún problema, pero lo que no encuentro es la manera de iniciarlo sin que se vea, sólo el icono, tipo programa antivirus, ....
Gracias

Lo que te ha indicado rocksoft

Lo que me ha indicado rocksoft minimiza la aplicación, que no es lo mismo que aparezca el icono en el systray. Lo que quiero es que aparezca al lado del reloz, sólo el icono, como el sonido, red, antivirus y pulsar click, dobleclick, botón derecho, .... lo que sea, para abrir el interface.

Gracias

He conseguido lo que buscaba siguiendo los pasos de un post de xEsk de 25 de junio de 2008. En lugar de usar las Jedi he usado las RxLib y me ha funcionado

Es lo que preguntaste, minimizarla, lo del icono es distinto y eso lo controlas tú.
Son las mismas, las RXlib están integradas en las Jedi.

Hola Casemiro, no quiero contradecirte pero el componente TRxTrayIcon no dispone de las mismas propiedades que JvTrayIcon. Quizá no lo implementé bien pero no lo conseguí.
En cuanto a lo de minimizar, quizás me he expresado mal, pero no quiero minimizar sinó ocultar, y visualizarla al pulsar sobre el icono

Gracias

Eso es lo que te dije hace 5 días :)

Llevas razón que me lo dijiste, pero cómo hago para que aparezca el mensaje emergente, el balloonhint del de las jedi?

Andas bastante perdido.
Todas las opciones que se te dieron sirven.

Para mis sugerencias, te dije que probaras
1.- TSysTrayIcon
2.- Ventana desplegable translúcida
3.- ShowBalloon.

En el último caso y si no usas Win8 o Win 10 (y posiblemente Win7 y Vista) úsalo así:

Código Delphi [-]
procedure ShowBalloon(Handle: THANDLE; Titulo, Texto: String);
var
  Data: TNotifyIconData;
begin
  ZeroMemory(@Data, sizeof(TNotifyIconData));
  Data.cbSize:= sizeof(TNotifyIconData);
  Data.uFlags:= NIF_ICON or NIF_INFO or NIF_REALTIME;
  Data.dwInfoFlags:= NIIF_INFO;
  lstrcpyn(Data.szInfoTitle, PCHAR(Titulo), 64-1);
  lstrcpyn(Data.szInfo, PCHAR(Texto), 256-1);
  Data.uTimeOut:= 1000;
  Data.Wnd:=  Handle;
  Shell_NotifyIcon(NIM_ADD, @Data);
  Shell_NotifyIcon(NIM_MODIFY, @Data);
  //Shell_NotifyIcon(NIM_DELETE, @Data);  // Para WinXp esta línea debe ser comentada. En el resto de S.O. también funciona con la línea comentada
end;

Saludos.

escafandra, perdida es poco. El último programa que escribí en Delphi hace muchos años, no sé 10, 15, y la verdad, a pesar de recordar mucho, me cuesta.
Suerte tengo de la ayuda de este foro, y la verdad, lo estoy pasando pipa.
Finalmente lo he conseguido siguiendo tus indicaciones, muchísimas gracias.
Pero me faltaría una cosa, interesa que no se pueda cerrar el programa, sinó esconderlo. Pensaba que sería fácil, en el onclose del formulario principal, pensaba en action := caHide, pero no funciona.
He buscado por el foro, y he encontrado esta explicación de Lepe, del año 2005, pero no la entiendo, no sé que és lo que tengo que hacer.
Para salir del paso, y la verdad me está bien, he eliminado los botones del form, y en la opción Salir del menú, he puesto Hide y funciona

De nuevo muchas gracias