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

//声明:
RoundRect(
  DC: HDC;                        {设备环境句柄}
  X1, Y1, X2, Y2, X3, Y3: Integer {点1、点2是构成矩形的坐标; X3是圆角宽度、Y3是圆角高度}
): BOOL;

//举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 20; y1 = 20; x2 = 200; y2 = 100; x3 = 30; y3 = 30; begin RoundRect(Canvas.Handle, x1,y1, x2,y2, x3,y3); end;
//效果图:

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