[求助]帮帮我吧
我是初学者,我正在做一个手机短信互动抽奖系统.这个程序的其他部分都做得差不多了,就是抽奖界面我不知怎么下手.
在界面上,我想让电话号码不断变动,按确定停住.这些怎样能实现?
问题点数：20、回复次数：1Top
1 楼liangqingzhi（老之）回复于 2006-05-02 17:31:46 得分 20
用Timer来控制，用Random函数来随机生成数字
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption:=Format('1%d%.9d',[Random(10),Random(1000000000)]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=10;
end;Top
