Animate
Animate Win32 ғ қ, AVI- қ ү ғғ ү .
Animate ң
Animate ғ ә қ. ғ ғ ң қ қ :
Animate ң қ
Қ | Қ | ||
Name | ң . | ||
FileName | ң ө қ қ AVI-ң . | ||
StartFrame | ң ң ө | ||
stopFrame | ң қ ң ө | ||
Activate | ң ң | ||
Color | қ ң ң ү | ||
Repetitions | ң қ | ||
, AVI- ә ө ү Windows- қ AVI- ө ң :
Animate ң қ :
Animate1 ң қ
Қ | ә | ||
FileName | bart.avi | ||
Active | False | ||
Transparent | True |
unit ShowAVI_;
Interface
Uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;
Type
TForm1 = class(TForm)
Animate1: TAnimate;
// Animate
Button1: TButton; // -
Button2: TButton; //
Button3: TButton; // ңғ
RadioButton1: TRadioButton;
// қ қ ғ
RadioButton2: TRadioButton;
// ә қ ғ
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations)
end;
var Form1: TForm1; //
CFrame: integer;
implementation {$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
Begin
if CFrame = 1 then
Button2.Enabled:= True;
If CFrame < Animate1.FrameCount then begin
CFrame:= CFrame + 1;
Animate1.StartFrame:= CFrame;
Animate1.StopFrame:= CFrame;
Animate1.Active:= True;
if CFrame = Animatel.FrameCount
|
|
then Button2.Enabled:=False;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
Begin
if CFrame = Animate1.FrameCount
then Button2.Enabled:= True;
IfCFrame > 1 then begin
CFrame:= CFrame 1;
Animate1.StartFrame:= CFrame;
Animate1.StopFrame:= CFrame;
Animate1.Active:= True;
if CFrame = 1 //
then Form1.Button3.Enabled:= False;
end;
end;
procedure TForml.RadioButtonlClick(Sender: TObject);
Begin
Buttonl.Enabled:=True;
Form1.Button3.Enabled:=False;
Form1.Button2.Enabled:=False;
end;
procedure TForm1.RadioButton2Click(Sender:TObject);
Begin
Button2.Enabled:=True;
Buttons.Enabled:=False
Buttonl.Enabled:=False; end;
procedure TForm1.ButtonlClick(Sender: TObject);
Begin
if Animate1.Active = False
Then begin
Animate1.StartFrame:=l;
Animate1.StopFrame:=Animate1.FrameCount;
Animate1.Active:=True;
Button1.caption:='';
RadioButton2.Enabled:=False;
End
Else
Begin
Animate1.Active:=False;
Button1.caption:='';
RadioButton2.Enabled:=True;
end;
end;
End.
comonAVi қң ә қ
ә | ||||
viCopyFiles | ө | |||
AviDeleteFile | ||||
aviRecycleFile | ғ |
MediaPlayer
MediaPlayer ң System ғ қ. , ә қ ғғ ү .
MediaPlayer ң
.
MediaPlayer
MediaPlayer ң
қ қ | ||||
ғ | btPlay | ғ | ||
btPause | ғ қ қ | |||
btStop | ғ қ | |||
btNext | ө | |||
ңғ | btPrev | ңғ ө | ||
Қ | btStep | қ ө, CD- ә ө | ||
btBack | ңғ қ ө, CD- ңғ ә ө | |||
btRecord | ||||
/ | btEject | ң CD- |
ғ
қ WAV ң қ. , C:\Winnt\Media Windows ғ .
WAV- қ қ ғ ү ediaPiayer ү ө.
Microsoft Windows-ң ң
MediaPlayer1 ң қң ә
|
|
ә | |||
DeviceType | DtAutoSelect | ||
FileName | C:\Winnt\Media\3 Microsoft.wav | ||
AutoOpen | True | ||
VisibleButtons. btNext | False | ||
VisibleButtons.btPrev | False | ||
VisibleButtons. btStep | False | ||
VisibleButtons. btBack | False | ||
VisibleButtons. btRecord | False | ||
VisibleButtons.btEject | False | ||
:
UnitWinSound_; interface
Uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
Type
TForm1 = class (TForm)
MediaPlayerl: TMediaPlayer; //
Label1: TLabel;
ListBox1: TListBox;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure ListBoxlClick(Sender: TObject);
procedure MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;