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

  • 主题发起人 主题发起人 chemer
  • 开始时间 开始时间
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 :
上有问题。谢谢
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部