用人用过TWinXP控件吗？为什么ListView报错啊？其它都正常。及...

Question

环境！Delphi5 下载的TWinXP For Delphi5的控件，在WinXP Home Edition下，只要一显示ListView就弹出一堆Error Message(有多少个Column就弹多少个)。怎么解决啊？

Answer 1

TListView在XP中的补丁程序
{
　在Windows XP下使用vsReport方式的TListView组件会导致出错。
　它的VCL里有一个臭虫，需要打个补丁。
　
　把下面的comctrls.pas拷贝到你的应用程序路径之下然后编译该程序。
　这个文件修改了原先的UpdateColumn方法。
　
　你的程序可以直接使用新的comctrls.dcu，你可以用它覆盖原先的组件。
}// ComCtrls.pas:procedure TCustomListView.UpdateColumn(AnIndex: Integer);
{...}
with Column, Columns.Items[AnIndex] do
begin
{ PATCH start:}
// mask := LVCF_TEXT or LVCF_FMT or LVCF_IMAGE;
  mask := LVCF_TEXT or LVCF_FMT;
  if FImageIndex > = 0 then
    mask := mask or LVCF_IMAGE;
{ PATCH :end }
{...}
end;