怎样解决晃动问题

Question

运行DELPHI时，为什么当界面上的字体滚动时界面图像老是晃动。字体的滚动是用TIMER组件控制的代码如下：
begin
frmmain.AutoSize:=false;
image1.AutoSize:=false;
timer1.Enabled:=true;
timer2.Enabled:=false;
label1.Left:=label1.Left+10 ;
if label1.Left>=frmmain.Width-label1.Width then
begin
timer1.Enabled:=false;
timer2.Enabled:=true;
end;
end;
procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled :=true;
label1.Left:=label1.Left-10 ;
if label1.Left<0 then
begin
timer1.Enabled:=true;
timer2.Enabled:=false;
end;end;end.

Answer 1

是不是lable在移动的时候总是闪?
label1.Parent.DoubleBuffered:=True; 这是我从别的地方抄来的.你试试.
还有一个是:TransparentColor:=True;加上这句

Answer 2

我这边试了下,没有任何问题试试楼上的方法吧,timer里面label移动后加个application.ProcessMessages