您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

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

时间:2011/9/3 15:25:09 点击:

  核心提示:第一种方法是:拦截视图类的WM_ERASEBKGND消息,加入以下代码, CRect rect; pDC-GetClipBox(rect); CBrush brush(m_crBackColor);C...

第一种方法是:拦截视图类的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);

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号