i:=0 导致程序不可进入循环,你试着将 While i<0 换成 While i<5

解决方案 »

  1.   

    在OnCellDraw中写应该可以,如果不可以,你应该多判断、跟踪一下你程序的逐步执行(在你没有达到效果或怀疑出问题处),你会发现你的写屏输出并没有被执行,因为i不可能一开始就小于i。改为可满足的条件就可以了。
      

  2.   

    哎呀,对不起,我题目中的I:=0纯属画蛇添足,题目应该是:while i<0 do
      begin
      sg.canvas.textout(10,i*12+3,'aaa')
      inc(i);
      end;滚动时会花屏