一个关画直线的简单问题！

Question

我想用 鼠标在PaintBox上拖动画直线。
我是这样写的：
procedure TAFXMap.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      PB_LineMode := True;
      PaintBox.Canvas.MoveTo(X,Y);
end;procedure TAFXMap.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    If PB_LineMode = True Then
      PaintBox.Canvas.LineTo(X,Y);
end;procedure TAFXMap.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    PaintBox.Canvas.LineTo(X,Y);
    PB_LineMode := False;
end;但这样画出不是直线，而且鼠标轨迹线，高手指点指点，怎么改呢？？

Answer 1

OnMouseMove中的代码如果不要，那么鼠标在拖动的过程中看不到线。这样肯定不行啊。

Answer 2

在OnMouseMove里每次移到时擦掉上次移动是画的线段。
但每画好一条线段，下一条线段出现交叉时，有可能会擦掉上一条线段的一些点

Answer 3

最好是看看\Delphi7\Demos\Doc\Graphex下面的例子