如何用Delphi绘制一个贝塞尔曲线

在Delphi中绘制贝塞尔曲线需采用TCanvas类。具体实现步骤如下：

1. 在需要绘图的控件中，创建TCanvas对象。

2. 使用Canvas.Pen属性设置绘图线条的颜色、粗细等属性。

3. 使用Canvas.MoveTo方法设置起点。

4. 使用Canvas.CurveTo方法绘制贝塞尔曲线。

以下是一个简单的示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  canvas: TCanvas;
  p1, p2, p3: TPoint;
begin
  canvas := Image1.Canvas; // 在Image1的画布上绘图
  canvas.Pen.Color := clRed; // 设置画笔颜色为红色
  canvas.Pen.Width := 2; // 设置画笔宽度为2个像素

  // 设置三个点的坐标
  p1 := Point(10, 100);
  p2 := Point(50, 20);
  p3 := Point(100, 100);

  // 绘制贝塞尔曲线
  canvas.MoveTo(p1.X, p1.Y);
  canvas.CurveTo(p2.X, p2.Y, p3.X, p3.Y);

end;

以上代码会在Image1上绘制一条起点为(10, 100)， 经过中间点(50, 20)， 终点为(100, 100)的贝塞尔曲线。