測試程序:注意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.
一共有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.
解决方案 »
- Delphi7可以开发什么样的游戏
- error reading form问题
- 当鼠标在ListBox是移动时,怎么知道当前是在哪一行啊?
- 关于Delphi操作Excel的两个问题。有兴趣的朋友进来探讨一下。(实在没办法了)
- 当鼠表用右键点击文件夹下的*.xls文件时,在出现的快捷菜菜单中显示自己编制的条目,再点击该菜单条目时,对该*.xls进行处理?
- 怎么用sql查询ACCESS中的日期时间的数据
- 那里有cvs的中文资料,俺的e文不太好?
- Delphi中用什么方式做可以播放VCD格式和Mepg one 的播放器最好
- SVN怎么访问到其他机器上的版本库
- 一个关于ado操作数据库的简单问题
- 当tscrollbox.HorzScrollBar .visible=false时,如何滚动tscrollbox?
- 一个困扰我几天的问题
begin
iNum:=10000;
timer1.Enabled:= true;
timer1.Interval:= 100;
DoubleBuffered := True; //insert 打开双缓冲
end;