如何实现一个线程内定时执行某种操作？

Question

我想在线程内动态创建一个Timer ，可是不知道怎么绑定ontimer事件。
不知道有没有什么好的解决方案。

Answer 1

将OnTimer事件过程作为创建线程时的参数带入到线程中，在线程的Create中创建定时器，在Destroy中释放它，将带进来的事件赋给定时器的事件在线程的Execute中设置一无限循环（当然用户是可以终止它的）如果不懂，Delphi有一个监视系统文件变化的组件，你读读它的源码或者随便找个Delphi线程池源码读读就可以了

Answer 2

可以反过来，试试在OnTimer事件中，生成线程了。
当然，如果非要在线程中产生定时器，也可以直接用Api函数SetTimer和KillTimer，似乎比动态生成TTimer好用一点。