摘要：
//语句：CreateSolidBrush（p1:COLORREF｛color value｝）：HBRUSH；｛返回画笔手柄｝//示例：processTForm1.FormPaint（Sender:TObject）；varBrushHandle:HBRUSH；beginBrushHandle:=CreateSolidBrush（clYellow）；FillRect（Canvas、Handle、ClientRe
//声明:
CreateSolidBrush(
p1: COLORREF {颜色值}
): HBRUSH; {返回画刷句柄}
//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
BrushHandle: HBRUSH;
begin
BrushHandle := CreateSolidBrush(clYellow);
FillRect(Canvas.Handle, ClientRect, BrushHandle);
DeleteObject(BrushHandle);
end;
//效果图:
