Tlistview和WinXP兼容性问题？值得关注。 -->>> (70分)

serial number：123-456-7890 Authorization Key： 69x4-91x0

{ TXPListView }

TXPListView = class(TListView)
public
procedure Dispatch (var Message); override;
end;

//============================================================================
// class TXPListView
//============================================================================

//----------------------------------------------------------------------------
procedure TXPListView.Dispatch (var Message);
//----------------------------------------------------------------------------

begin
if HandleAllocated then
begin
with TMessage(Message) do
begin
case Msg of
LVM_SETCOLUMN,
LVM_INSERTCOLUMN :
with PLVColumn(LParam)^ do
begin
if (iImage = -1) then
mask:= mask and not LVCF_IMAGE;
end;
WM_THEMECHANGED :
begin
RecreateWnd;
end;
end;
end;
end;
inherited;
end;

2 CathyEagle
不能安装这个控件，是不是引用了什么单元？
总在：
case Msg of
LVM_SETCOLUMN,
LVM_INSERTCOLUMN :
上有问题。谢谢

多人接受答案了。