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 随意将函数执行权限提高到ring0源代码

Delphi钩子注入程序

Delphi 从listview组件中的选定行在数据库中删除

Delphi 打开webbrowser的选中文件路径

Delphi中的各种文件类型介绍

Delphi 10分钟10行代码开发app(Delphi 应用案例)

Delphi 播放声音 建议采用 异步方式，比较流畅

Delphi模拟文件拖拽

Delphi 将被其他窗体遮住的窗体弹到最前面

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

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