在IdHTTP.Post正在后台工作时动画TAnimate？

Question

使用Delphi XE2，当TIdHTTP对象在后台工作时，如何播放/更新TAnimate动画？例如，我有IdHTTP1.Post在远程服务器上等待这个PHP“app”来完成：

<?php
echo date('h:i:s') . "\n";
sleep(5);
echo date('h:i:s') . "\n";
?>

在这5秒内，即使是线程计时器（TJvThreadTimer）也不会发射！我还尝试使用带有CreateTask的OmniThreadLibrary将IdHTTP1.Post置于一个单独的线程中。即使在这种情况下，线程计时器也不会触发，也不会更新TAnimate动画 那么当IdHTTP1.Post在后​​台工作时，我可以做些什么来动画动画？

Answer 1

似乎只需在表单上放置一个TIdAntiFreeze组件（并将其IdleTimeOut属性设置为10而不是默认值250），就可以轻松解决问题。没有线程需要，动画只是在IdHTTP.Post在后台工作5秒时才能正常播放！非常好！