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 自带rest调试工具 restdebugger 用法

Delphi统计字数(汉字+字母+符号)

Delphi superobject json操作类的基本用法

Delphi 禁止截屏printscreen

Delphi 文件夹操作

Delphi截取字符串 防止中文截断

Delphi spcomm控件的安装

Delphi中二进制文件数据存文件方法

Delphi 官方 processmessages 用法代码例子

Delphi comparestr 函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...