超级列表框设置表头颜色修复版

m_Hwnd ＝ 超级列表框1.取窗口句柄 ()
m_HDHwnd ＝ SendMessage (m_Hwnd, #LVM_GETHEADER, 0, 0) ' 取表头句柄
OldLVProc ＝ SetWindowLong (m_Hwnd, -4, 到整数 (&NewListViewWindowProc)) ' 子类化超列
OldHDProc ＝ SetWindowLong (m_HDHwnd, -4, 到整数 (&NewHeaderWindowProc)) ' 子类化超列表头
SetHDItem ()
SendMessage (m_Hwnd, #LVM_UPDATE, 0, 0)