请问如何改变TListView的列头(vsReport时)的背景颜色？

[weizhi]

我的ListView.ViewStyle = vsReport,　此时列头的背景颜色始终为clBtnFace，
我想改变为其它颜色，该怎么处理？

我得到了header为窗口句柄，然后Subclassed后，可以捕获到WM_ERASEBKGND，但还是不能成功的改变背景色。也许是我没有做好。

请各位高手不吝指教！

[wzwcw]

procedure TmyListView.WMNotify(var Message: TWMNotify);
var
FHeaderHandle: THandle;
begin
inherited;

FHeaderHandle := SendMessage(Handle, LVM_GETHEADER, 0, 0);

if ValidHeaderHandle and (Message.NMHdr^.hwndFrom = hHead) then
begin
with Message.NMHdr^ do
begin
if (hwndfrom = FHeaderHandle) then
case code of

HDN_BEGINTRACK,HDN_BEGINTRACKW:
FHeaderTracking := True;

HDN_ENDTRACK,HDN_ENDTRACKW:
begin
FHeaderTracking := False;
SetHeaderOwnerDraw(FHeaderOwnerDraw);
end;

HDN_ITEMCHANGED:
SetHeaderOwnerDraw(FHeaderOwnerDraw);

HDN_DIVIDERDBLCLICK:
begin
if not FHeaderTracking then
SetHeaderOwnerDraw(FHeaderOwnerDraw);
with PHDNotify(Pointer(Message.NMHdr))^ do
begin
Column[Item].Width :=ListView_GetColumnWidth(Handle, Item)+1;
if IsCustomDrawn(dtControl, cdPrePaint) then Invalidate;
end;
end;

NM_CUSTOMDRAW:
begin
with PNMCustomDraw(Message.NMHdr)^ do
begin
case dwDrawStage of
CDDS_PREPAINT: Message.Result := CDRF_NOTIFYITEMDRAW;
CDDS_ITEMPREPAINT:
begin
SetTextColor(hdc, clwhite);
SetBkColor(hdc, clskyblue);
Message.Result := CDRF_NEWFONT;
end;

end;
end;
end;
end;
end;
end;
end;

以前写的，有点乱，你可以参考一下

[wzwcw]

能够改变颜色，但是还有些小问题(当column 为空时,双击header,颜色又变了回去,这个可以解决,但还是有毛病):)，还有另外方法 :)

[black_fox]

Sign

[weizhi]

to wzwcw(Apple):
呵呵，好吧，非常感谢你。
我的联系方法：
Mail:[e-mail]
QQ:46938712

[wzwcw]

已发，请查收

[weizhi]

感谢wzwcw(Delphi)的帮助，不过，问题还是没有解决。不知道你能不能花点时间帮忙研究和整理一下。

如果分不够的话，可以再加的。

也请其它高手们关注。

[copy_paste]

ListView.OnCustomDrawItem事件
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item.Index mod 2) = 0 then
Sender.Canvas.Brush.Color := 背景色; //淡一点
end;

[wzwcw]

To weizhi(行者):
这是以前编的控件，本来就没有完工，不过可以改标题颜色，不太好做，
也可以用另外麻烦点方法解决，你告诉我信箱，我给你发个控件，是我参考别人改的。