如何实现文字滚动时不闪烁!

Question

文字滚动时会给人闪烁的错觉,请问如何解决?有网友建议封装成图片来滚动!
到底用什么方法好?请举例!谢谢!!!

Answer 1

对阿，就是用Textout画到canvas上，然后移动该图片，或是先画在内部图片中再使用Canvas.CopyRecthua6dao用于显示的图片上

Answer 2

哈，兄弟们，我们用TRICHVIEW解决问题了，不会出现闪烁的现象，程序代码就只有五六行的。
这个控件还不错
如果感兴趣,大家到www.51delphi.com去下载一个最新的for d7吧

Answer 3

大家感觉一下，很简单
procedure TForm1.FormCreate(Sender: TObject);
begin
  rv.TopMargin:=screen.Height;
  rv.BottomMargin:=screen.Height;
  rv.AddNL('我是中国人',1,1);
  rv.LoadText('1.txt',0,0,true);
  rv.VSmallStep := 1;
  rv.Format;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if rv.VScrollPos<>rv.VScrollMax then
     rv.VScrollPos := rv.VScrollPos+1
   else
     rv.VScrollPos := 0;
end;procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if ord(key)=27 then
    close;
end;