我的一个Unit里要用到TTimer组件,但是这个Unit没有Form,所以不能从上面拖一个TTimer组件下来,所以我只能直接在代码里定义一个
timer: TTimer,
然后:
timer := TTimer.Create(NIL);
timer.Enabled := true;
timer.Interval := 100;
但是接下来该怎么添加OnTimer事件处理代码就不知道了,所以请各位高手多多赐教!
timer: TTimer,
然后:
timer := TTimer.Create(NIL);
timer.Enabled := true;
timer.Interval := 100;
但是接下来该怎么添加OnTimer事件处理代码就不知道了,所以请各位高手多多赐教!
procedure TYourForm.YourTimer(Sender: TObject);
begin
........
end;2.在原来的代码后面加上:
Timer.OnTimer:=YourTimer;同样类型的事件是可以互相赋值的