怎样给timer的 ontime赋值(100分)

L

longer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #1

我想给timer的 ontime赋值 ss,可是不行
procedure TLine.ss(bmp:TBitmap);
begin
with bmp.Canvasdo
begin
if pen.Color<>clred then
pen.color:=clred
else
pen.color:=clblue;
moveto(bassPoint.x,basspoint.y);
lineto(secPoint.x,secpoint.y);
end;
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #2

什么意思，TTimer 的 OnTime是一个事件，你要干什么？

 

追

追命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #3

在onTime事件中调用SS

 

L

lliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #4

timer1.ontime:=ss;不过，你的SS得修改一下。

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #5

当给一个事件赋值时，传递的参数必须同其原来的参数相同，
OnTimer 中用的参数是Sender: TObject, 而你传的不是一个TObject,所以赋值
会出错，如果改成 procedure ss(bmp:TObject) 则不会有问题。
再者，Sender 是个特殊的参数，指的是一个发送该事件的对象，这么用是
有问题的。我认为你的程序最好是在 OnTimer 事件中进行画线操作，而对应的
TBitmap 最好来源于一个变量。

 

L

longer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #6

to crab:
我的bmp是一个传递过来TBitmap类型，我要用到他，要是换成TObject，则
没办法写底下的代码了

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #7

你只能另外定义一个方法 AProcedure(sender:Tobject)
在这里面调用Tline.ss
procedure Tform1.AProcedure(sender:Tobject);
begin
TLine.ss(ABmp);
end;

Timer1.Ontime:=Aprocedure;

 

L

longer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #8

多人接受答案了。