delphi怎么设置背景颜色，对着白花花的屏幕写代码眼都花了

启动DELPHI，在代码编辑窗口中鼠标右键，选择 properties(属性），然后在Editor Properties标题窗口后，选择COLOR(颜色），根据自己所需要的重新设置一下就可以了！

核心提示：改变窗体背景色的几种方法...第一种方法是:拦截视图类的WM_ERASEBKGND消息,加入以下代码, CRect rectpDC->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)顶一下

---