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.