WinAPI: DrawFocusRect - 绘制焦点矩形

为什么80%的码农都做不了架构师？>>>   

//声明:
DrawFocusRect(
  hDC: HDC;         {设备环境句柄}
  const lprc: TRect {矩形结构}
): BOOL;

 
 
 
 
 

 

 

  

//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  MyRect: TRect;
begin
  MyRect := Rect(20,20, 180,100);
  DrawFocusRect(Canvas.Handle, MyRect);
end;

 
 
 
 
 

 

 

  

//效果图:

---

转载于:https://my.oschina.net/hermer/blog/320969