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:
3G in the United States to see The embarrassment and disappointment of China
3GP to avi
"Hybrid VPN" in progress
Chinese input method commonly used fast switching
China's ENVIRONMENTAL satellite data
Win XP to crash when you BECOME extremely smart!
avi To m4v
Professional human resources workers 132 Tool - factors into account point method
Comparison Java And JavaScript
Computer Education INFOMATION
"Mirrors Edge" Cheats
free mkv CONVERTER
Flv to 3gp converter
No comments:
Post a Comment