How to wait for TTimer to complete?

Question

I have TFrame (fraDisplay) with TTimer (timAnimateDataChange). A timer is used to control small animations. 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;

An animation is basically a TImage32 redraw synchronized by a timer. The timer will turn it off when finished, and the frame has the boolean property AnimationRunning, which will be set to false when the animation is complete.

There is no thread or anything like that to complicate or help.

The question is how to implement the WaitForAnimationToFinish method?

(Btw, this is a bad solution:

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

since the timer does not work when the method starts :-()

Answer 1

Smasher Delphi 2009.

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: , WaitForAnimationToFinish OnTimer, Windows, ProcessMessages. , , .

Answer 2

AnimationRunning False, , .

Answer 3

Delphi , - Active Sleep.

Answer 4

, , - , ? GUI. :

( ), , GUI - , , , X ..

, DoStuff ; , - . , , .

; , :)

Answer 5

Make AnimateResults take the parameter of the method that will be called when this is done.