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;

 
 
 
 
 

 

 
  

//效果图: