做触摸屏程序,界面lable做菜單,更新label時界面閃得厲害,怎麼解決.

Question

測試程序:注意lable的字體比較大40
一共有7個label,一個timer,解決閃的問題,測試通過就給分.謝謝unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  iNum:integer;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Application.ProcessMessages;
  Inc(iNum);
  label1.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label2.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label3.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label4.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label5.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label6.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
  label7.Caption:= '我是第' + inttostr(iNum) + '個大好人!';
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  iNum:=10000;
  timer1.Enabled:= true;
  timer1.Interval:= 100;
end;end.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  iNum:=10000;
  timer1.Enabled:= true;
  timer1.Interval:= 100;
  DoubleBuffered := True; //insert 打开双缓冲
end;

Answer 2

label1.Parent.DoubleBuffered := True; // 要看你的Label放的容器，这样你测试看看

Answer 3

謝謝,搞定,zswang(伴水清清)(专家门诊清洁工)完全正確;我把label放在image里面了;