Dephi6(及以下版本)并不提供XP风格支持,因为Dephi6推出时XP还在测试当。要使应用程序支持XP风格必须添加"manifest xml”资源文件到应用程序中,告诉系统对此应用程序使用6.0的comctl32.dll,而不是5.0。但有部分VCL控件与6.0存在兼容问题。
TListView为vsReport时,鼠标移到列头时会抛出异常,修正这个问题需要修改ComCtrls.pas,步骤如下:
1.打开ComCtrls.pas文件,查找TCustomListView.UpdateColumn;
2.找到以下语句:
if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;
3.改为:
if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
mask := mask and not (LVCF_IMAGE);
3.保存Comctrls.pas,OK,问题解决!
另外, www.tmssoftware.com提供免费控件,可以在不改动原VCL控件代码的情况修正问题。
TListView为vsReport时,鼠标移到列头时会抛出异常,修正这个问题需要修改ComCtrls.pas,步骤如下:
1.打开ComCtrls.pas文件,查找TCustomListView.UpdateColumn;
2.找到以下语句:
if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;
3.改为:
if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
mask := mask and not (LVCF_IMAGE);
3.保存Comctrls.pas,OK,问题解决!
另外, www.tmssoftware.com提供免费控件,可以在不改动原VCL控件代码的情况修正问题。