控制項移動問題

控制項移動問題 VCL組件開發及應用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221110936225.html
我想將文字逐漸顯示,所以在文字上加蓋了一個shape,然後用timer使得shape.top:=shape.top+1;  
  但是結果是可以使文字逐漸顯示,但是閃屏嚴重,請高手幫解決一下,謝謝!

直接在canvas裡畫  
  要麼就用雙緩衝

也可以通過定時器來觸發作個例子給你！  
  var  
      Form1:   TForm1;  
      DisplayText:Widestring;  
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  var  
    MidStr:widestring;  
  begin  
        MidStr:=Widestring(Label1.Caption);  
        if   Length(MidStr)<Length(DisplayText)   then  
        begin  
              MidStr:=MidStr+DisplayText[Length(MidStr)+1];  
              Label1.Caption:=MidStr;  
        end  
        else   Label1.Caption:='';     //寫滿了   從新迴圈寫！  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
          DisplayText:='打到小日本，我是龍的傳人，上海教授去吃屎吧！'  
  end;  
   
  end.  
 

據說底下加個Panel   就不哪麼閃了，