2004-06-07
xpmenu的冲突??
我用delphi7,加了一个xpmenu,active激活之后,出现非法地址访问??
为什么???!!!
感谢上帝,感谢真主,感谢安拉。
终于解决了。
constructor TXPMenu.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
跟踪 inherited Create(AOwner);进入
procedure TXPMenu.Notification(AComponent: TComponent; Operation: TOperation);
begin
if not (csDesigning in ComponentState) then begin
case Operation of
opInsert:
****** if (FPendingFormsList<>nil) then **********
if (AComponent is TCustomForm) and (FPendingFormsList.IndexOf(AComponent) < 0) then
源程序中少了*号标记的语句导致FPendingFormsList非法访问!!!!