根据2点屏幕坐标画线

Question

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);通过以上2个过程得到2个窗体上的坐标，用直线把这2个坐标连接，请教各位高手”代码“如何写？论坛里没有找到能看懂的代码

Answer 1

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  self.Canvas.MoveTo(x,y);
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  self.Canvas.LineTo(x,y);
end;

Answer 2

感谢 yuqianyi1974  的回复