Delphi 数字摇号器

本文整理自网络，侵删。

 
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中编写参数个数可变的函数

Delphi 创建自己的定时器 定时清理内存

Delphi tstringlist删除重复项

Delphi 虚拟桌面服务程序

Delphi 申请管理员权限级别

Delphi 控制窗口显示隐藏

Delphi中安装和使用kol和mck

Delphi开发firemonkey应用程序时无法打开窗体的解决

Delphi 将对象转换为json字符串或tjsonobject

Delphi xe6 读取android设备联系人

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数字摇号器