怎么让timer工作两秒后停止10秒，在工作十秒(29)

L

luyihanqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #1

怎么让timer工作两秒后停止10秒，在工作十秒，就是控制timer的工作状态，我知道enabled是控制其状态，假设interval 是1000.（1秒），谢谢了，剩下的29分数，全部给了，

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #2

用2个timer吧

 

T

themars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #3

自己做个计数的变量Count 每次进入Timer事件+1 该工作的时候就走下面的代码 不该工作的时候直接跳过下面的代码不就行了

 

L

luyihanqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #4

procedure TForm1.Timer2Timer(Sender: TObject); var Count,i: Integer;begincount:=0;i:=0;if Count = 0 thenbeginif i < 2 then begin ifimg1.Visible = truethen img1.Visible := false else img1.Visible := true; inc (i) end else inc (count) end else begin if Count < 10 then Inc(Count) else Count := 0end;end;end.我这样设置不出来，如果单独的让其一秒钟闪烁一次，我这样 ifimg1.Visible = truethen img1.Visible := false else img1.Visible := true;可以显示出来，请指导

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #5

timer1.enabled := true; StartTime := GetTickCount; while true do begin application.processmessages; if trunc(GetTickCount-StartTime) mod 2000 = 0 then timer1.enabled := false; if trunc(GetTickCount-StartTime) mod 12000 = 0 then timer1.enabled := true; if trunc(GetTickCount-StartTime) mod 22000 = 0 then begin timer1.enabled := false; break; end; end;

 

T

themars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #6

你的Count是局部变量？ 每次进入都执行count:=0;？ 那你这个Count还能起什么作用..........

 

L

luyihanqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #7

我要求是全局的，怎么修改呢，在程序的头部那里定义吗

 

L

luyihanqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #8

private { Private declarations } public end;var Form1: TForm1; f: File; count:integer;是不

 

L

louemusic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-15

• #9

const TMR_INTERVAL:array[0..3]of Integer= (2000,2000,2000,10000);procedure TForm1.TmrTimer(Sender: TObject);begin with TTimer(Sender)do begin Enabled:=false; if Tag>Length(TMR_INTERVAL)-1 then Tag:=0; Interval:=TMR_INTERVAL[Tag]; LB.Visible:=not LB.Visible; Enabled:=true; Tag:=Tag+1; end;end;procedure TForm1.FormCreate(Sender: TObject);begin LB.Visible:=False; Tmr.Interval:=1000; Tmr.Enabled:=true;end;

 

M

m37258887

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-16

• #10

受益了 ~~学习学习

 

草

草原骏马

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-17

• #11

在Timer的事件里。现场编写，有错误难免Timer1.Enabled := false;//do sthif Timer1.intval = 2000 thenTimer1.intval := 10000else Timer1.intval := 2000;Timer1.Enabled := true;

 

L

LoveHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-18

• #12

不用改变timer的Enabled状态，Enabled保持为true，直接改变其跳动周期就行了在ontimer事件里写，如果是2秒，就改成10秒，如果是10秒就改成2秒就行了……