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;

//效果图: