xpmenu的冲突??

来源:互联网 发布:虎豹骑 优化 编辑:程序博客网 时间:2024/05/26 04:45

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非法访问!!!!
 

原创粉丝点击