xpmenu的冲突？？

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