Delphi7开发的Ocx控件提示DAX Error的解决办法

据说delphi5到delphi7一直有这个bug，不知道更高的版本有没有改过来

我用的是delphi7

 

对Delphi了解得并不多，这次写ocx也是赶鸭子上架。所以这个bug的原因我也说不明白，但是确实把问题解决了，下面把解决方法说一下（其实也都是从网上搜的，稍加整理）

 

1、到delphi安装目录下，找到Source\VCL\AxCtrls.pas文件（这个文件中的代码有bug），拷贝到你的项目文件夹下，把这个文件添加为你项目的一部分（这样delphi就会应用你修改后的AxCtrls.pas）

 

2、找到AxCtrls.pas文件中的函数ParkingWindow，用下面的代码替换

  function   ParkingWindow:   HWND;  
  var  
      TempClass:   TWndClass;  
      ParkingName   :   String;  
  begin  
      Result   :=   xParkingWindow;   
      //if   Result   <>   0   then   Exit;   //这行代码在delphi5和delphi6中好像不用注释掉
    
      //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
      ParkingName   :=   'DAXParkingWindow_'   +       Format('%p',   [@ParkingWindowProc]);  
   
      FillChar(TempClass,   sizeof(TempClass),   0);  
      if   not   GetClassInfo(HInstance,   PChar(ParkingName),   TempClass)   then   //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
      begin  
          TempClass.hInstance   :=   HInstance;  
          TempClass.lpfnWndProc   :=   @ParkingWindowProc;  
          TempClass.lpszClassName   :=   PChar(ParkingName);   //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
          if   Windows.RegisterClass(TempClass)   =   0   then  
              raise   EOutOfResources.Create(SWindowClass);  
      end;  
      xParkingWindow   :=   CreateWindowEx(WS_EX_TOOLWINDOW,   TempClass.lpszClassName,   nil,  
          WS_POPUP,   GetSystemMetrics(SM_CXSCREEN)   div   2,  
          GetSystemMetrics(SM_CYSCREEN)   div   2,   0,   0,   0,   0,   HInstance,   nil);  
      SetWindowPos(xParkingWindow,   0,   0,   0,   0,   0,   SWP_NOACTIVATE   or   SWP_NOREDRAW  
          or   SWP_NOZORDER   or   SWP_SHOWWINDOW);  
      Result   :=   xParkingWindow;  
  end;  

 

3、编译项目即可

 

参考资料：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=919005

http://blog.chinaunix.net/u/4831/showart_187926.html，这个文档说delphi7解决不了，其实是少注释了一行代码