//聲明:
CreateSolidBrush(
p1: COLORREF {顏色值}
): HBRUSH; {返回畫刷句柄}
//舉例:
procedure TForm1.FormPaint(Sender: TObject);
var
BrushHandle: HBRUSH;
begin
BrushHandle := CreateSolidBrush(clYellow);
FillRect(Canvas.Handle, ClIEntRect, BrushHandle);
DeleteObject(BrushHandle);
end;
//效果圖:
