Delphi programming animation AVI play without sound

The examples will demonstrate how the program is running, showing silent AVI animation.

Add a TAnimate to the form component and sets its CommonAVI property aviCopyFile, this component will be displayed in TAnimate copy files animation. After adding components form shown in Figure 1.






Figure 1 form after adding components

Initialization process in the form add the following code:

procedure TForm1.FormCreate (Sender: TObject);

begin

self.Animate1.Active: = true;

end;

Thus, the initial run, the program will activate TAnimate components to copy files to start playing the animation aviCopyFile.

Code is as follows:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type

TForm1 = class (TForm)

Animate1: TAnimate;

procedure FormCreate (Sender: TObject);

private

(Private declarations)

public

(Public declarations)

end;

var

Form1: TForm1;

implementation

($ R *. dfm)

procedure TForm1.FormCreate (Sender: TObject);

begin

self.Animate1.Active: = true;

end;

end.

Save the file, and then press the F9 key to run the program, run the results shown in Figure 2.






Figure 2 run results

This procedure does not call the disk in the AVI animation files, readers in their own applications can specify the FileName property TAnimate component to play sound in AVI animation.







Recommended links:



Best Animation Tools



Evaluate Screen Capture



convert swf To flv



Youtube to FLASH Utility



Silver DVD to Zune Converter



Lohan DAT To DVD



Lohan DVD To AVI



PROFESSIONAL VCD SVCD DVD to iPod



Articles about Health And Nutrition



WENDFLOWARE Zune Movie/Video Converter



Format blackberry



BLUESEA DVD to Apple TV DAT



ts To mpg



free Download mp4 to mpeg converter



SPECIALIST Font Tools



The nature of chain



CorelDRAW Based Cartoon Series (2)