WinAPI: DrawFocusRect - 绘制焦点矩形

//声明:

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;


 
   




//效果图:

---