タスクトレイのポップアップメニュー

たか 2006-11-19 03:53:08 No: 23970

質問があります。

タスクトレイにアイコンを表示させ右クリックでポップアップメニューを表示させているのですが、稀にタスクバーのポップアップメニューも一緒に表示されることがあります。

原因がわかりましたらよろしくお願いいたします。

procedure TForm1.WMUSER(var Msg: TMsg);
var
   mousePos: Tpoint;
begin
   case Msg.wParam of
      //右クリック
      WM_RBUTTONDOWN:
      begin
         SetForeGroundWindow(Handle);
         PostMessage(Handle, WM_NULL, 0, 0);
         GetCursorPos(mousePos);
         PopupMenu1.Popup(mousePos.X,mousePos.Y);
      end;
   end;
end;

みんみん 2006-12-03 21:11:00 No: 23971

タスクバーのポップアップメニューは、マウスアップ時に
でるようなので、マウスを押した時はカーソルがアイコン上にあっても、
離したときにカーソル位置がタスクバー上にあればタスクバーのメニューも
表示されます。
アイコンが小さいので隅のほうをクリックしたときはこのようなことが
起こるかもしれません。
間違っていたらすいません。