3请问大家我利用mousedown,mouseup,mmousemove事件做的一个画图软件，怎么一加上菜单就有BUG呢？下面有我源码请大家帮着看。谢谢，我给出我的上限分

Question

procedure TForm1.imgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if ts then img.Canvas.LineTo(X,Y);
end;procedure TForm1.imgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ts:=True;
img.Canvas.MoveTo(X,Y);
end;

Answer 1

procedure TForm1.imgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ts:=True;
  x1 := X;
  y1 := Y;end;
  

Answer 2

参考一下DELPHI里带的DEMO 吧
最好写一个DrawShape过程
在MOUSEDOWN里初始化起始点
MOUSEMOVE里
      DrawShape(StartPos,LastPos,pmNotXor);
      LastPos:=Point(x,y);
      DrawShape(StartPos,LastPos,pmNotxor);
MOUSEUP里
  if ts then
  begin
    EndPos:=Point(x,y);
    Drawing:=false;
  end;

Answer 3

在MouseDown事件中初始化起始点即可

Answer 4

在MouseDown事件中初始化起始点即可，并且ts变量初始应为false;

Answer 5

在MouseDown事件中初始化起始点即可，并且ts变量初始应为false;