B baoping Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #1 有3和label，怎样控制让随机或循环显示0-9之内的数字, 比如按空格键 显示和停止,即把随机或循环显示放在一个timer中,timer为true开始显示,反指停止
M maikee1978 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #2 timer的ontimer中 var i:integer;这个定为全局变量 begin label1.caption:=intostr(i); label2.caption:=intostr(i+1); label3.caption:=intostr(i+2); end; 在onkeypress中 if key=#32 then timer1.enable:=not timer1.enable; 这是循环
timer的ontimer中 var i:integer;这个定为全局变量 begin label1.caption:=intostr(i); label2.caption:=intostr(i+1); label3.caption:=intostr(i+2); end; 在onkeypress中 if key=#32 then timer1.enable:=not timer1.enable; 这是循环
一 一份子 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #3 用随机函数不行吗?然后分别进行控制,按下键盘的让他们分别进行随机抽数, 再按下去就是对取出的数进行显示,这样不行吗? 如果是循环的,每次都是同一个不行吗?
K kjiwu Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #4 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = $20 then Timer1.Enabled := not Timer1.Enabled; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Randomize; Label4.Caption := IntToStr(Random(9)); Label5.Caption := IntToStr(Random(9)); Label6.Caption := IntToStr(Random(9)); end; 是不是这种效果?
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = $20 then Timer1.Enabled := not Timer1.Enabled; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Randomize; Label4.Caption := IntToStr(Random(9)); Label5.Caption := IntToStr(Random(9)); Label6.Caption := IntToStr(Random(9)); end; 是不是这种效果?
B baoping Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #5 按照上面的办法可以实现随机显示 有没有办法让循环显示，让看着都像从0到9循环滚动
K kjiwu Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-17 #7 设置一个全局变量: i: Integer; Timer1Timer改成这样: procedure TForm1.Timer1Timer(Sender: TObject); begin Label4.Caption := IntToStr(i); Label5.Caption := IntToStr(i); Label6.Caption := IntToStr(i); Inc(i); if i = 10 then i := 0; end; 可以实现让看着都像从0到9循环滚动;
设置一个全局变量: i: Integer; Timer1Timer改成这样: procedure TForm1.Timer1Timer(Sender: TObject); begin Label4.Caption := IntToStr(i); Label5.Caption := IntToStr(i); Label6.Caption := IntToStr(i); Inc(i); if i = 10 then i := 0; end; 可以实现让看着都像从0到9循环滚动;
