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;

推荐分享