如何修改delphi7中listview做报表的时候列标题的颜色等风格了

[yanghaiyanghai]

如何修改delphi7中listview做报表的时候列标题的颜色等风格了

delphi7 呈现出来的风格：


想要修改成这样的风格：

[smhilyyan]

换个控件? 用dev的?

[别激动]

你可以这样试试，简约版

[别激动]

，他的标题栏部分想要重绘很困难的

[dbyoung]

阅读delphi中listview的实现源码，然后你就知道如何获取到表头句柄了。拿到句柄，想干啥都行了

[满面尘，鬓如霜，何处话凄凉]

procedure TCustomListView.WMParentNotify(var Message: TWMParentNotify);
begin
with Message do
if (Event = WM_CREATE) and (FHeaderHandle = 0) then
begin
FHeaderHandle := ChildWnd;
FDefHeaderProc := TWindowProcPtr(GetWindowLong(FHeaderHandle, GWL_WNDPROC));
{$IF DEFINED(CLR)}
SetWindowLong(FHeaderHandle, GWL_WNDPROC, FLVInstances.FHeaderInstance);
{$ELSE}
SetWindowLong(FHeaderHandle, GWL_WNDPROC, LongInt(FHeaderInstance));
{$IFEND}
end;
inherited;
end;


这里的FHeaderHandle就是listview头的句柄， 看来你要覆盖WM_PARENTNOTIFY消息