如何修改delphi7中listview做報表的時候列標題的顏色等風格了
delphi7 呈現出來的風格：
想要修改成這樣的風格：
uj5u.com熱心網友回復：
換個控制元件? 用dev的?uj5u.com熱心網友回復：
你可以這樣試試，簡約版uj5u.com熱心網友回復：
，他的標題欄部分想要重繪很困難的uj5u.com熱心網友回復：
閱讀delphi中listview的實作原始碼，然后你就知道如何獲取到表頭句柄了。拿到句柄，想干啥都行了uj5u.com熱心網友回復：
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訊息
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/27779.html
標籤：VCL組件開發及應用
上一篇：致命錯誤Program or unit 'wen' recursively uses itself 程式或單元遞回,錯誤該怎么辦？代碼如下