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 md5加密字符串

Delphi程序的exe和dll文件添加版本信息

Delphi-获取毫秒-计算代码运行的时间

Delphi 释放bitmap

Delphi 如何把一个exe做为res加入到dll中，并在运行时生成exe文件执行

Delphi中根据程序名称判断是否多开

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi获取文件编码

一些最基本的函数 单元

Delphi发送邮件

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

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