Question

用Delphi中用timer控件移动label时文字闪烁问题

能否请教个问题，delphi中用timer控件让label从右向左移动，老是会出现隔一秒左右闪烁一次，应该处理？我看到别人的程序中一般都不会出现这样的闪烁的，像电视里的滚动字幕。
以前在VB中也有这个问题，有没有人能帮忙？

Answer 1

form1.doubleBuffered:= true;
代码设置form的doublebuffered属性为true能有效解决闪烁问题。
但是相应的会消耗内存。

Answer 2

timer的值设置的越小，也就是移动得越快，闪烁会越明显，游戏里面其实很多场景也是那样的，不过那是图片是画上去的，解决办法一般用的是双缓存，就是说一个负责在前台显示一个负责在后面画，意思大概就是这样！这个控件这个他们说的方法也能解决吧

Answer 3

在 FormShow 中加入下句：
SetWindowLong(Self.Handle, GWL_EXSTYLE, GetWindowLong(Self.Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED);

Answer 4

将TIMER的intval设置成 1
这样就看不出闪动了，注意控制好移动到窗体边界问题

Answer 5

把你的delphi代码贴出来

参考如下
procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbl1.Left:= lbl1.Left+1;
让后自己加下判断超过窗体范围处理
end;