本人做了一个托盘程序。当弹出菜单后，在菜单区域外点击鼠标，菜单不能自动关闭。原码如下：
procedure TForm1.icononclick(var message:Tmessage);//点击图标弹出菜单
procedure TForm1.icononclick(var message:Tmessage);//点击图标弹出菜单
阅读背景：
托盘程序弹出菜单后，不能自动关闭！！！！！
来源：互联网
分享到：
