弹出菜单问题！(20分)

M

MaxWoods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

我将程序最小化成系统图标，右击图标弹出菜单。奇怪的是如果窗口最小化，弹出菜单后如
果不选菜单项的话，再点击桌面空白处，菜单不会自已消失，但是如果窗口没有最小化就是
正常的，请问这是为什么？
可参你们的系统图标区，比如金山词霸，音量控制什么的，在没有可视窗口的情况下也不会
出现上述的弹出菜单问题！

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

在 popup 菜单前加入两句
SetForegroundWindow(Application.Handle);
BringWindowToTop(Self.Handle);

 

M

MaxWoods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

经验证，下面这样写才最合理：
if IsIconIc(Application.Handle) then SetForegroundWindow(Application.Handle)
else Application.BringToFront;

 

M

MaxWoods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

接受答案了.

 

M

MaxWoods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

if IsIconIc(Application.Handle) then SetForegroundWindow(Application.Handle)
else Application.BringToFront;