dsscocx控件出错怎么办_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,   P