有关绘制图线的问题

Question

请问怎样在窗体中绘制一条倾斜的线段？

Answer 1

Canvas.MoveTo(x1, y1);
Canvas.LineTo(x2, y2);两点决定一条直线，呵呵。

Answer 2

图形函数基本都封装在画板Canvas中.procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.MoveTo(100, 100); //设置起点位置
  Canvas.Pen.Color := clGreen; //设置画笔颜色
  Canvas.Brush.Color := clRed; //设置画刷颜色
  Canvas.LineTo(300, 300); //画线
  Canvas.Rectangle(250, 250, 300, 300);//画矩形
  //其他的请查帮助文档
end;