SysTray的一个问题

在delphi中，用Shell_NotifyIcon函数添加、删除、更改systray icon，然后用systray的系统消息添加systray icon的鼠标事件，我在鼠标右击事件中加入popup菜单，但发现在程序运行时，鼠标移向systray icon后右击第一次菜单总是出不来，直到点击第二次才能弹出菜单。同样的问题也在vb 自带的systray控件中出现，但其它的成熟产品如foxmail、oicq等的systray icon 右击都是一次就出来，这到底是为什么，他们是怎么做的？
试一下在弹出菜单前SetForegroundWindow(Handle);