//声明:
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;
//效果图:
![26154036_mVWb.png](http://static.oschina.net/uploads/img/201409/26154036_mVWb.png)