//聲明:
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;
//效果圖:
