如何画直线能看到画的过程！

大家好

解决方案 »

  1.   

    我就是提问的新手。
    我看见书上是这样写的：
    var
      TopLeft,BottomRight:TPoint；
    begin  Image.Canvas.MoveTo(TopLeft.x,TopLeft.y)；
      Image.Canvas.Lineto(BottomRight.x,BottomRight.y)；
    end
     为啥等我用了就不灵了呀？
    郁闷！
      

  2.   

    用TIMER   然后作图可能可以
      

  3.   

    你在timer事件里写
    begin
      Image.Canvas.MoveTo(TopLeft.x,TopLeft.y)；
      Image.Canvas.Lineto(TopLeft.x,TopLeft.y)；
      inc(TopLeft.x);
      inc(TopLeft.y);
    endTopLeft是全局变量
    你这样看看:)