RAD Studio VCL Reference
|
Indicates whether the animation control displays a one of the common Windows AVI clips provided in Shell32.dll.
property CommonAVI: TCommonAVI;
__property TCommonAVI CommonAVI;
Set CommonAVI to display one of the common Windows AVI clips in the animation control. The common Windows AVI clips appear in the Windows user interface when the user attempts common file actions. CommonAVI is aviNone when the animation control displays an AVI clip that was specified in some other manner.
Setting CommonAVI automatically sets the FileName property to an empty string, ResHandle and ResID to 0, and ResName to an empty string.
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!
|