TrayIcon y su Popup

[[gluglu]]

Hola !

Cualquiera de los programas que tenemos abajo a la derecha en el SysTary al lado del reloj, cuando hacemos Click con el ratón sobre ellos, aparece un Menu Popup.

Hasta ahí llego.

Pero cuando hacemos Click en cualquier otro programa diferente (sin siquiera haber elegido una opción del Menu Popup), o en cualquier otra parte del escritorio, ese Menu Popup desaparece automáticamente, evidentemente sin tener que estar esa aplicación activa.

Ahi NO llego !

Como puedo hacer desaparecer el Popupmenu dichoso al hacer click en cualquier otra parte.

He probado con Application.OnDeactivate pero al parecer no entra ahí ya que la ventana principal de la aplicación esta oculta (Visible := False).

Gracias por vuestra ayuda.

Edito y añado : Lo que quiero decir es cuando pulso el botón izquierdo del ratón. Con el derecho y mediante la activación del PopupMenu de manera automática, si funciona.

Pero por ejemplo el messenger, si se pulsa el botón izquierdo sale tam´bién el Popupmenu, y si pulso en otro lado, desaparece.

[jhonny]

Se supone que eso funciona solito, sin necesidad de hacerle nada.

Acabo de probarlo con el TTrayIcon de D2007 y funciono sin problema, recuerdo haberlo hecho alguna vez con el de las RxTray y eso tambien funcionaba sin problema.

[[seoane]]

Hola glugu, el tema de los popup y el systray es sencillo. Antes de mostrar el popup se debe de usar la funcion SetForegroundWindow con la ventana a la que pertenece ese menu. No importa si la ventana esta oculta.

[jhonny]

Empezado por seoane

Hola glugu, el tema de los popup y el systray es sencillo. Antes de mostrar el popup se debe de usar la funcion SetForegroundWindow con la ventana a la que pertenece ese menu. No importa si la ventana esta oculta.

¿Pero el TTrayIcon no hace ya esa llamada a dicha función?

[[seoane]]

Empezado por jhonny

¿Pero el TTrayIcon no hace ya esa llamada a dicha función?

gluglu no ha mencionado el TTrayicon Puede que este usando, por ejemplo, el delphi 7 que no trae ese componente y le toque crear el icono "a mano"

[jhonny]

Empezado por seoane

gluglu no ha mencionado el TTrayicon Puede que este usando, por ejemplo, el delphi 7 que no trae ese componente y le toque crear el icono "a mano"

, cierto, cierto, tienes razón... no habia caido en ese detalle, aunque seguramnete mi subconciente si, ya que mencione el TRxTray .

[[gluglu]]

Perdón, me perdí por ahí 20 minutos y menuda se ha armado también aquí.

Utilizo Delphi 2006 y sí, si utilizo el TTrayIcon.

Insisto, el problema es con el botón izquierdo ...

En el evento OnClick del TrayIcon tengo

Código Delphi [-]
procedure TWakeUp.TrayIcon1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

y de hecho, cuando pulso en otra parte del escritorio o en otra aplicación, ese menú popup NO desaparece automáticamente.

No lo he probado, pero podría tener algo que ver que la Ventana principal de la aplicación correspondiente a ese TrayIcon tengo FormStyle := fsStayOnTop ?, ya que cuando se active, quiere que esté siempre por delante de las demás.

[[eduarcol]]

y ese no es el comportamiento normal del popup?? al tener el foco otra aplicacion este va a desaparecer acabo de probarlo en delphi 7 funciona asi sin cambiar ninguna propiedad ni evento

[[eduarcol]]

pero bueno hoy el club esta movido aqui tambien se me han adelantado

[jhonny]

Empezado por eduarcol

pero bueno hoy el club esta movido aqui tambien se me han adelantado

Bueno, pero el movido sos vos, te me haz adelantado