随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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;
//效果图:

posted on 2008-02-09 18:42  万一  阅读(...)  评论(...编辑  收藏