请教各位老师，怎样在tedit中实现两个数字的滚动显示？

girl 发布于 2005-08-20 09:27， 818 次点击

比如0根1，在显示出0后然后快速的显示出1，反复的显示0跟1，请各位老师不吝赐教，小女子不胜感激。

谢谢。

4 回复

mojianpo2005-08-21 09:51

procedure show01;
var flag:boolean;
  begin
   flag:=true;
   i:=1;
   if flag then
     begin
        edit1.text:='1';
         sleep(500);
       self.flag:=false;
      end
  else
    begin
     edit1.text:='0';
         sleep(500);
     self.flag:=true;
    end;
  self.show01;
end;
你时式行吗?

wolf2005-09-01 21:02

用一个timer控件不就可以了呀？

ysp_19842006-01-05 06:21

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Text='0' then
edit1.Text:='1'
else if edit1.text='1' then
edit1.Text:='0'
end;

ysp_19842006-01-05 06:21

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Text='0' then
edit1.Text:='1'
else if edit1.text='1' then
edit1.Text:='0'
end;