Delphi 畫貝塞爾(Bezier)曲線

在 Form Paint 事件中加入

procedure TForm1.FormPaint(Sender: TObject);
var
  Points: array of TPoint;
begin
  Canvas.Pen.Width := 3;
  Setlength(Points, 4);
  Points[0].X := 0;
  Points[0].y := 0;
  Points[1].X := 0;
  Points[1].y := 100;
  Points[2].X := 150;
  Points[2].y := 50;
  Points[3].X := 150;
  Points[3].y := 150;
  Canvas.PolyBezier(Points);

  Points[0].X := 150;
  Points[0].y := 150;
  Points[1].X := 150;
  Points[1].y := 200;
  Points[2].X := 200;
  Points[2].y := 250;
  Points[3].X := 250;
  Points[3].y := 250;
  Canvas.PolyBezier(Points);
end;