TrayIcon y su Popup

[[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.

[dec]

Hola,

Una posible solución pasa por lo que ha comentado Domingo:

Código Delphi [-]
  SetForegroundWindow(self.Handle);
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  PostMessage(self.Handle, WM_NULL, 0, 0);

Echa un vistazo a la ayuda de la función "TrackPopupMenu" (del API de Windows) para más información.

[[seoane]]

Pero no entiendo por que no usas la propiedad PopupMenu del TTrayicon, asi el ya se encarga de mostraralo correctamente.

De todas formas si quieres mostraralo "a mano":

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

[[gluglu]]

Efectivamente, gracias Domingo.

Seoane tiene razón. Con este código en el OnClick del TrayIcon funciona correctamente :

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

Vamos a rizar el rizo. Resulta que (vuelvo a poner como ejemplo el messenger), si pulso el botón izquierdo del ratón, abre el correspondiente Popupmenu del messenger. Si ahora pulso dobre cualquier aplicación que se encuentra en la barra de tareas, se cierra el popupmenu y se da 'foco' directamente a la aplicación seleccionada de la barra de tareas.

A mi no me funciona así. Al pulsar sobre una aplicación de la barra de tareas desaparece correctamente el popupmenu de mi TrayIcon pero la aplicación seleccionada en la barra de tareas se pone intermitente y no se le dá foco automáticamente.

[Casimiro Noteví]

Te veo cambiando al componente de las RX