弹出菜单后怎么响应鼠标消息

Question

自己弹出一个菜单后，界面上其他控件的鼠标移动消息无法响应，要怎么做？看到其它一些程序上，可以将菜单放到右上角，比如mathon，theworld。如何实现的？

Answer 1

1.弹出一个菜单后，焦点在弹出菜单2. var
     p： TPoint；   p.X := Form1.Left+Form1.Width;
   p.Y := Form1.Top+22;
   PopupMenu1.Popup(P.X, P.Y);

Answer 2

Delphi鼠标左键点击Button弹出快捷菜单Popupmenu procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
PopupMenu2.Popup(Mouse.CursorPos.X-30,Mouse.CursorPos.Y+12);end;在光标所在位置弹出菜单;procedure TForm1.Label1Click(Sender: TObject); 
var 
Point: TPoint; 
begin 
GetCursorPos(Point); 
PopupMenu1.Popup(Point.X,Point.Y); 
end;  
都不是？？？、

Answer 3

在处理WM_NCLBUTTONDOWN消息(弹出菜单)的时候，好像不能捕获到鼠标。

Answer 4

貌似只能Hook,自己处理鼠标Message，然后发送到目标控件上。
请参考我前两天的问题，答案也是自己找到的，被迫无满意答案结贴。
http://topic.csdn.net/u/20100114/23/768c42ad-e288-4b6a-aa88-c0305587634e.html

Answer 5

设置属性为那个啥help？
不是要这个啊，那我要放任意位置，你也一行搞定？
看了toolbar的代码，确实是hook来的。