求救啊！在图像上画线

Question

可以画。
问题是我画的线位置不是在鼠标点下去的位置。
各位高手，请问一下是怎么回事啊

Answer 1

应该没有问题的
估计你是对象搞错了
如果在TImage上画线的话
就应该用TImage的Mouse事件
下面的代码就是在Image1上画线的：procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Image1.Canvas.MoveTo(X,Y);
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Image1.Canvas.LineTo(X,Y);
end;

Answer 2

提问
我的图像不一定和Timage的大小一样
image.stretch:=  true
画出来就不对了。原因呢？？老大。救我啊