画直线

Question

看到一些参考资料，如下：
///////////////////////////////////////////
画直线时，用户只有在松开鼠标才能看见直线，对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种响应。Delphi定义了OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化：
procedure TForm1.FormMouseMove(Sender:Tobject)
begin
  Drowto(X,Y);
  Moveto(origin);
end.
origin是起始点。
//////////////////////////////
其中Drowto(X,Y)是什么东东，我怎么找不到？？？？？？？？

Answer 1

你要用的话，用lineto应该是一个意思

Answer 2

呵呵，可能大家没看懂我的意思，直线我是会画的，在MouseDown中确定起始点坐标，在MouseUp中确定终止点坐标，这样直线就画出来了，但是有个问题，只要放开鼠标时直线才能显示出来，这样的话用户在没放开鼠标之前无法看到直线的具体位置，就像windows自带的画图程序画直线的效果。请大家帮帮忙。

Answer 3

onMouseMove的时候一边画一边擦不行吗？？？？
那时候也可以看出来鼠标up之前的情况了...

Answer 4

to:heluqing(鉴之小河)
多谢，你说的就是我像要的，问题已经解决了！