在Lazarus中使用时钟(TTimer)的一点点体会，与大家分享

红叶

今天调一个程序，程序的功能是在通过网络启动一个时钟，使用一个线程专门从网络上接收数据，当收到的数据是时钟开启命令后就打开时钟（Timer1.Enabled := True)。这样简单的一个程序我竟然调试了三四个小时才调通，原因不是网络接收，也不是其它的，而是时钟不管怎么搞都不运行。最后查出来原因是因为Timer1.Enabled := True这行是在线程中执行，这样执行不行，所以我就把Timer1.Enabled := True做到一个函数中，这个函数叫SetTimerEnable，然后这样调用Synchronize(@SetTimerEnable)。这样一搞，竟然可以正常运行了。总的来说就是要在子线程中调用TTimer的相关方法就必须要使用同步语句才行。

函数SetTimerEnable如下
procedure SetTimerEnable();
begin
  Timer1.Enabled := True;
end;