小弟用Timer 和 Label 寫一個倒數計時程式, 以Label 作為顯示時間. 但發現每倒數一秒, 整個時間顯示會出現輕微的閃爍現象, 請問各位如何解決這現象?

如果將要顯示倒計時的label1是直接放在form1上，可以設置
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);--顯示當前時間
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.DoubleBuffered:=true;---消除閃爍現象
end;
end.
如果label1是直接放在panel1上；
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.DoubleBuffered:=true;---消除閃爍現象
end;
end.

真的十分感謝. 問題已解決.