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

[lght]

自己弹出一个菜单后，界面上其他控件的鼠标移动消息无法响应，要怎么做？

看到其它一些程序上，可以将菜单放到右上角，比如mathon，theworld。如何实现的？

[kfcoffe]

mark

[mynameis_007]

1.弹出一个菜单后，焦点在弹出菜单

2. var
p： TPoint；

p.X := Form1.Left+Form1.Width;
p.Y := Form1.Top+22;
PopupMenu1.Popup(P.X, P.Y);

[dd_zhouqian]

PopupMenu

[hjkto]

http://www.yesky.com/54/1814054.shtml

[lght]

都不是

[hjkto]

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;
都不是？？？、

[lght]

没看清题目，我是想弹出菜单后，别的控件能响应鼠标移动消息

[qkhhxkj102]

帮顶

[kfcoffe]

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

[lght]

靠，无满意结贴不返回积分？
好多分就这样浪费了。

[kingswonder]

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

[wliaoc]

[Quote=引用 7 楼 lght 的回复:]
没看清题目，我是想弹出菜单后，别的控件能响应鼠标移动消息
[/Quote]

我想如果这样你的焦点应该要还在主界面才行，不能在菜单上，这样主界面的控件就能响应鼠标了

[bjcx994]

一行代码搞定，分享一下啊，莫非这行代码需要收银子才给的？

[wooden954]

你弹出菜单，如果要其它控件响应移动消息，弹出的菜单忽略这些消息，那你弹出菜单来做什么呢？

[无条件为你]

菜单放在右上角不是难事。一行代码搞定。楼主联系QQ多少？

[lght]

[Quote=引用 14 楼 mwy654321 的回复:]
菜单放在右上角不是难事。一行代码搞定。楼主联系QQ多少？
[/Quote]

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