popupmenu问题
要求 popupmenu 控件点击后就消失了。。。
我需要popupmenu菜单不消失。点击后执行我的处理过程，处理过程中允许消失才消失
这个怎么做？
[解决办法]
处理弹出菜单的每个菜单项的OnClick事件，在里面判断是否需要继续显示弹出菜单
procedure TForm1.菜单项1Click(Sender: TObject);
begin
if (需要继续显示) then
popupmenu1.Popup(popupmenu1.PopupPoint.X, popupmenu1.PopupPoint.Y);
end;
[解决办法]
有弹出菜单就不行了，自己写个菜单吧，通常来说，发现自己要实现的是一种奇葩的功能或需求，这就表示程序设计有问题才会有奇怪的功能要求，换个思路或许就通了。
[解决办法]
自己用一个Panel或子窗体模拟实现吧，这样好灵活控制
