如何得知弹出菜单已经关闭？？

[tengxing]

弹出菜单弹出可以知道，但要怎么知道它是否关闭了？？？

[newyu]

这个嘛，我也不知道，
你加个条件判断，是不是show或者visible=true
之类的应该可以吧

[FrameSniper]

牛.......

[flash107]

用findWindow()查找一下，该窗口是否存在，若不存在，侧关闭

[overtime]

用assign试试

[tengxing]

不是吧，这么久了。就没人会？？

[bottom]

BORLAND 没有提供这种事件和属性
BORLAND一般以微软的制作为标准，在MSDN中无此讲法
也很少人做菜单收回的事件的需要！

[baguli]

办法还是有的，我试了一下：
简单创建一个新的组件TPopupMenuPro，下面是一些关键代码：
type TPopupMenuPro = class(TPopupMenu)
FPopupped: Boolean;
public
constructor Create(AOwner: TComponent); override;
procedure Popup(X, Y: Integer); override;
property
Popupped: Boolean read FPopupped;
end;

implementation

constructor TPopupMenuPro.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPopupped := False;
end;

procedure TPopupMenuPro.Popup(X, Y: Integer);
begin
FPopupped := True;
inherited Popup(X, Y);
FPopupped := False;
end;

end.

然后，注册这个组件，使用TPopupMenuPro代替TPopupMenu，检测其Popupped属性即可知道是否弹出菜单

[baguli]

另外，改正一下：最好将Popupped改为Public属性，因为在Delphi IDE里面,Popupped是没有意义的。

[span_space]

up

[xiaoyuer0851]

厉害 ，学习ing ^^^^^^

[charles2118]

给菜单编个号码
Function NotClose(num:Integer):Boolean;
begin
try
Result:= false;
if (curFrameNum=num) then
exit;

Result := True;
if (curFrameNum=0) then
exit;

curFrame.Free;
curFrameNum:=0;
except
on e:Exception do
if Application.MessageBox('发生异常，是否显示异常信息？','错误', mb_IconWarning + mb_YesNo) = mrYes then
Application.MessageBox( pchar(E.message),'错误信息', mb_IconWarning + mb_Ok);
end;
end;