随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
CreateSolidBrush(
  p1: COLORREF {颜色值}
): HBRUSH;     {返回画刷句柄}

//举例: procedure TForm1.FormPaint(Sender: TObject); var BrushHandle: HBRUSH; begin BrushHandle := CreateSolidBrush(clYellow); FillRect(Canvas.Handle, ClientRect, BrushHandle); DeleteObject(BrushHandle); end;
//效果图:

posted on 2008-02-10 14:03  万一  阅读(...)  评论(...编辑  收藏