我做了一个软件,在系统托盘上显示一个菜单,可是……(100分)

  • 主题发起人 主题发起人 wqhatnet
  • 开始时间 开始时间
W

wqhatnet

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个软件,在系统托盘上显示一个菜单,可是……
当鼠标离开菜单
他却不会自动关闭
非要点一下菜单上的条目才可以
求解决方法
谢谢!
 
都是这样的,必须鼠标在其它地方点一下才会自动关闭。
 
菜单都是这样的阿。
 
来自:kaida, 时间:2008-12-23 18:22:11, ID:3936983
都是这样的,必须鼠标在其它地方点一下才会自动关闭。

在其他也点了一下
关闭不了啊
我才来问的
 
请在弹出菜单前使用
SetForegroundWindow(Form1.Handle)
其中Form1改成lz自己的form名即可

例如:
SetForegroundWindow(Form1.Handle);
GetCursorPos(P);
PopupMenu1.Popup(P.x, P.y);
 
你在PopupMenu弹出只前加一句
SetForegroundWindow(self.Handle);


var
MousePoint: TPoint; //鼠标点击位置
begin
GetCursorPos(MousePoint);//获取鼠标位置
SetForegroundWindow(Handle);
PopupRM.Popup(MousePoint.x, MousePoint.y); //弹出式菜单
PostMessage(Handle,WM_NULL, 0, 0 );

end;
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
839
DelphiTeacher的专栏
D
D
回复
0
查看
844
DelphiTeacher的专栏
D
后退
顶部