WinAPI: CreateSolidBrush - 建立实心画刷

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


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


//效果图:

---

转载于:https://www.cnblogs.com/del/archive/2008/02/10/1066566.html