如何实现从左到右的画线效果？

Question

用timer怎么做的？
就是让看到画线的这个过程，我下面的代码怎么就看不出来效果呢？
 var
p:integer
....
....
p:=image1.width;
...
...
procedure TForm1.Timer1Timer(Sender: TObject);begin
if p<0 then p:=image1.Width
 else
image1.Canvas.LineTo(p-1,100);end;

Answer 1

1、你的p没有变化
2、image1.Canbas.LineTo(p-1,100);是在第一跟线上画，你看不到。给你改一点的代码：procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Image1.Canvas.Pen.Color:=clRed;    if p<0 then
        p:=image1.Width
    else
        image1.Canvas.LineTo(p,random(100));    inc(p,-1);
end;//////////////////////////////
你老兄这个画线的帖子发了n个了，还没解决吗。