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