我如何在控制台程序中使用TIMER控件？(100分)

S

sun_shine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #1

我想在控制中使用TIMER，怎样实现呢？

 

B

bes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #2

我想不能用

 

P

peng_qs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #3

procedure MyTimerEvent(Sender: TObject);

timer1 := TTimer.Create(application);
timer1.interval := 1000;
timer1.OnTimer := MytimerEvent;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

uses ..., ExtCtrls;
然后用 peng_qs 的办法应该就可以了

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #5

或者直接用 Windows API： SetTimer
别忘记了，控制台程序是有句柄的

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #6

peng_qs 的行！

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #7

看看《delphi深度历险》有详细介绍