Question

Delphi改变窗体背景色的几种方法

Answer 1

核心提示：改变窗体背景色的几种方法...第一种方法是:拦截视图类的WM_ERASEBKGND消息,加入以下代码, CRect rect; pDC->GetClipBox(&rect); CBrush brush(m_crBackColor); CBrush* pOldBrush=pDC->SelectObject(&brush); pDC->PatBlt( rect.left,rect.top,rect.Width(),rect.Height(),PATCOPY); pDC->SelectObject(pOldBrush); 第二种方法是:重载其PreCreateWindow()函数,加入以下代码: cs.lpszClass=AfxRegisterWndClass(CS_HREDRAW|CS_VREDRAW,LoadCursor(NULL,IDC_HELP),(HBRUSH)GetStockObject(DKGRAY_BRUSH),0); 利用此函数还可以改变图标和光标. 第三种方法是在OnCreate函数中利用API函数GetClassLong()和SetClassLong(),具体代码如下: HBRUSH hbrush = (HBRUSH)GetClassLong(m_hWnd,GCL_HBRBACKGROUND); m_hBrush = CreateSolidBrush(m_color); ::SetClassLong(m_hWnd,GCL_HBRBACKGROUND,(LONG)m_hBrush); DeleteObject(hbrush);顶一下