RAD Studio VCL Reference
|
Indicates whether the animation control is playing the Animation.
property Active: Boolean;
__property Boolean Active;
Set Active to true to cycle through the frames specified by the StartFrame and StopFrame properties by the number of iterations specified in the Repetitions property. Set Active to false to interrupt the animation control when it is playing the animation file.
The animation control must be Open before it can be Active.
C++ Examples:
/* To run this example, create a new project, place a button on the form, and insert the example code to the button click event. Place the button on the bottom of the form to leave room for the TAnimate component that will be created on the fly. */ void __fastcall TForm1::Button1Click(TObject *Sender) { TForm *TempForm = new TForm(this); TAnimate *pAnimate = new TAnimate(TempForm); pAnimate->Parent = TempForm; pAnimate->CommonAVI = aviFindFile; pAnimate->Active = true; TempForm->Show(); // Simulate a lengthy process. Alter this value // to accommodate your machine speed. for (int i = 0; i < 90000000; i++) Application->ProcessMessages(); delete TempForm; }
Delphi Examples:
{ To run this example, create a new project, place a button on the form, and insert the example code to the button click event. Place the button on the bottom of the form to leave room for the TAnimate component that will be created on the fly. } procedure TForm1.Button1Click(Sender: TObject); var TempForm: TForm; I: Integer; begin TempForm := TForm.Create(Self); with TAnimate.Create(TempForm) do try Parent := TempForm; CommonAVI := aviFindFile; Active := True; TempForm.Show; // Simulate a lengthy process. Alter this value // to accommodate your machine speed. for I := 0 to 90000000 do Application.ProcessMessages; finally TempForm.Release; end; end;
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|