//声明: PolyBezierTo( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL;
//需要给 PolyBezierTo 指定起始点 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..2] of TPoint; begin ps[0].X := 40; ps[0].Y := 110; ps[1].X := 80; ps[1].Y := 30; ps[2].X := 110; ps[2].Y := 70; MoveToEx(Canvas.Handle, 10,70, nil); PolyBezierTo(Canvas.Handle, ps, 3); end;
//效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/121273/r_829j.png)
//PolyBezierTo 会更新当前位置 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..2] of TPoint; begin ps[0].X := 40; ps[0].Y := 110; ps[1].X := 80; ps[1].Y := 30; ps[2].X := 110; ps[2].Y := 70; MoveToEx(Canvas.Handle, 10,70, nil); PolyBezierTo(Canvas.Handle, ps, 3); {PolyBezierTo 已更新当前位置, 继续画} LineTo(Canvas.Handle, 110,10); LineTo(Canvas.Handle, 10,10); LineTo(Canvas.Handle, 10,70); end;
//效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/121273/r_829k.png)