timer控件(30分)

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #1

请问：我在timer控件里写了一段程序。interval值为2秒。为什么在我激活这个timer后，
他在2秒后才激活，而不是马上激活，如何解决这个问题？

 

Z

zhanggm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #2

在OnTimer事件中第一次激活时，并没有调用到。

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #3

不是啊，我看了，第一次激活完全符合条件，为什么没有调用到呢？

 

3

300850

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #4

源程序贴出来看看

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #5

应该不会呀。
实在不行傻一点，在设置timer为enabled是，调用self.time1timer(sender)，呵呵

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #6

先将form1的caption设置为0，再放一个按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Caption:=IntToStr(StrToInt(form1.Caption)+1);
end;

点下按钮后3秒钟，caption才开始变为1
请问如何解决，我要一点下按钮就加为1

 

青

青山侠客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #7

你如何确定是2秒后才激活，把源程序贴出来看看

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #8

我的程序已经贴上了呀。你们看看吧。我运行后就是按下按钮3秒后才加1。

 

C

china_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #9

timer是从零开始计时的,当然,从0-->1要三秒,除非你
定义一个初值.

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #10

定义什么初值呀？我的timer只是加数功能，需要什么初值？

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #11

怎么搞得？

 

A

AvidMouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #12

同意0532qd的意见：：：
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.OnTimer(self);
Timer1.Enabled:= true;
end;

 

C

china_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #13

楼主,你的态度有点不对吧!
大家都是给你帮忙,你的脾气道不小.

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #14

呵呵，没有啦。我只是着急，大家见谅呀。

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #15

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := True;
Timer1.OnTimer := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.OnTimer := Timer1Timer;
Timer1Timer(nil);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := '1';
end;

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-14

• #16

Timer1.OnTimer(self);是什么意思呀？

 

0

0532qd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #17

ok