delphi - 为什么 TTimer 不能正常工作？

Question

如您所知，我在使用 Delphi 2010 开发的应用程序中的 TTimer VCL 组件遇到了一些问题。

每当我打电话时:

Self.Timer1.Enabled := False;
Self.Timer1.Enabled := True;

计时器组件似乎确实停止了，但是它永远不会再次启动。就像，它从不调用 OnTimer 事件。

我将它与 Indy10 IRC 组件 (TIdIRC) 结合使用。

提前致谢 :)

Answer 1

您必须确保调用 TTimer 的这些方法。仅在主线程的上下文中。由于 Indy 使用线程，因此很可能违反了此规则。要轻松查找，您可以调用Assert当代码在另一个线程的上下文中执行时:

Assert(GetCurrentThreadId = MainThreadId);
Self.Timer1.Enabled := False;
Self.Timer1.Enabled := True;

不知道是什么 Self在您的代码中引用，但值得尝试。