本文整理自网络,侵删。
procedure TfrmMain.FormCreate(Sender: TObject);begin Randomize; //初始化随机种子end;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);begin Timer1.Enabled :=false;end;
procedure TfrmMain.Timer1Timer(Sender: TObject);begin Timer1.Tag:=Timer1.Tag-1; if Timer1.Tag<=0 then Timer1.Enabled :=false; lbTime.Caption:=IntToStr(Timer1.Tag); //倒计时 Label1.Caption:=IntToStr(Random(10)); //随机数 Label2.Caption:=IntToStr(Random(10)); Label3.Caption:=IntToStr(Random(10)); Label4.Caption:=IntToStr(Random(10));end;
procedure TfrmMain.Button1Click(Sender: TObject);begin Timer1.Tag := 10; //10秒 Timer1.Enabled :=True;end;
相关阅读 >>
Delphi 自带rest调试工具 restdebugger 用法
Delphi superobject json操作类的基本用法
Delphi 官方 processmessages 用法代码例子
更多相关阅读请进入《Delphi》频道 >>