怎样在控件中使用Timer？？？(50分)

G

gpolice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #1

我自己做的控件是从TSpeedButton类继承的，现在有个问题，请大家帮忙解决
我想在控件中使用TTimer类的OnTimer事件，我在类中创建了一个Timer对象，
可是不知道怎么给这个对象的OnTimer事件中写入语句？

 

K

kk98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #2

定义一个过程：
procedure MyTime(Sender: TObject);

在程序的某个地方将这个过程赋值给timer的ontime事件：
Timer1.OnTimer:= MyTime;

 

S

SoftBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #3

同意楼上的，根据程序需要可以设置timer1.enabled:=true（打开）和timer1.enabled:=
false（关闭）

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #4

给分吧。第一个45，第二个5个，我就不用了。[]

 

G

gpolice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-28

• #5

气死我了，我是这样写的Timer1.OnTimer:= TLed.MyTime;结果报错
把TLed去掉就可以了，为什么？？

 

N

NoSwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-28

• #6

因为函数需要一个this指针。不然它怎么知道你要执行那个类实例的代码！

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-28

• #7

>把TLed去掉就可以了，为什么？？

当然不用呀！

不过procedure MyTime(Sender: TObject);这个是看你声明在那个类里面的了

如果是TLed就要

 

G

gpolice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-28

• #8

多人接受答案了。