[Delphi 7][Win 2000][IconeTray]Bug ?

**Giovanny Temgoua** · 02/09/2004, 15h04

Bonjour,

Certainement, beaucoup de personnes ici ont eu à utiliser le code de création d'une icône dans la barre des tâches disponibles dans la FAQ.

Le problème est le suivant. Lorsqu'on active le menu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  If MSG.wParam=WM_RBUTTONUP then PopUpDroit .Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

il peut arriver que l'utilisateur ne choisisse pas forcément une des options proposées. Auquel cas, il continue son travail et le popup devrait normalement disparaître, mais ce n'est pas le cas!

Comment y rémédier ?

Merci.

**Jer'** · 02/09/2004, 18h32

J'avais le même problème, et j'ai fait comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if (Msg.wParam = WM_RBUTTONUP) then
begin
  SetForegroundWindow(Application.Handle);
  Application.ProcessMessages;
  PopUp.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;