我如何等待TTimer完成？

Question

I have a TFrame (fraDisplay) with a TTimer (timAnimateDataChange). The timer is used to control a small animation. In the form containing the frame I want to have a method that does something like this:

procedure TForm.DoStuff;
begin
   DoSomeLogicStuff;
   fraDisplay.AnimateResult;
   WaitForAnimationToFinish;
   DoSomeOtherLogicStuff;
   fraDisplay.AnimateEndResult;
   WaitForAnimationToFinish;
   fraDisplay.Finalize;
end;

The animations are basically redraws of a TImage32, timed by a timer. The timer will disable it self when finished, and the frame has a boolean property called AnimationRunning which will be set to false when the animation is finished.

There are no threads or anything like that to complicate or help matters.

The question is, how do I implement the WaitForAnimationToFinish-method?

(Btw, this is not a good solution:

procedure TForm.WaitForAnimationToFinish;
begin
  repeat 
    Application.ProcessMessages;
  until not fraDisplay.AnimationRunning;
end;

since the timer won't fire while the method is running :-( )

Answer 1

Smasher's suggestion could be implemented using Delphi 2009's anonymous methods.

procedure TForm.DoStuff;
begin
  DoSomeLogicStuff;
  fraDisplay.AnimateResult.OnFinished := 
    procedure (Sender: TObject)
    begin
      DoSomeOtherLogicStuff;
      fraDisplay.AnimateEndResult.OnFinished := 
        procedure (Sender: TObject)
        begin
          fraDisplay.Finalize;
        end;
      fraDisplay.AnimateEndResult;
    end;
  fraDisplay.AnimateResult;
end;

BTW: Actually, WaitForAnimationToFinish will let OnTimer fire, since it uses windows messages that are dispatched when calling ProcessMessages. But it is a bad idea anyway since it uses lots of CPU without actually needing it.

Answer 2

当计时器禁用自身并将AnimationRunning变量设置为False ，您可以调用下一个应该执行的方法。

Answer 3

斯洛文尼亚的Delphi程序员只写了你正在寻找的代码 - Active Sleep 。

Answer 4

So what your timer is doing is something lengthy, on the order of several seconds? That kind of long-running activity shouldn't be performed in the main GUI loop anyway. Nor should waiting for such:

While you're waiting for the animation to finish (if you could), the rest of your application will behave like a dead program, ie it will not respond to the GUI in any way, including resizing, redrawing, closing with the X , etc.

The solution is to instead break up your DoStuff method into two; one that starts up the timer activity, and a second one that executes when the timer finishes. To accomplish the latter, that timer should be calling your second method just before saying goodbye.

Lars has done a great job of putting together an example; consider this the book to go with his movie :)

Answer 5

使AnimateResults在完成后调用要调用的方法的参数。