字母滚动（label下面要显示图片，图片不能被覆盖)再线

Question

我用Label控件显示一个字符串，让它在屏幕上从左到右滚动，到达边界的时候（边界自己给定，不是屏幕的边界）要让它逐字的消失，label下面有图片要显示哈

Answer 1

Lable的Transparent设为真在循环中，应当加入  application.ProcessMessages或者用线程实现

Answer 2

可惜来晚了，楼上已经回答了。
只要把Label的Transparent设置为True就可以了。

Answer 3

label.transparent:=true;
然后用timer.ontimer()来实现，就可以了，不用循环，

Answer 4

To: knife_s
 我实现了它的滚动和逐字消失的功能,但是屏幕要闪烁,请教如何避免?

Answer 5

还有个问题,我在PANEL上放了一个IMAGE,动态的显示一些静帧图片,动态的图片上面显示LABEL的时候屏幕要闪烁,请问如何避免?

Answer 6

form1.DoubleBuffered := true;

Answer 7

procedure TForm1.FormCreate(Sender: TObject);
begin
self.DoubleBuffered := true;
label1.Transparent:=true;
timer1.Interval:=25;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Left:=label1.Left+2;
  if label1.Left>400 then label1.Left:=100;
end;