Àíèìàöèÿ
құðó.
Қîëäàíûëàòûí êîìïîíåíòòåð ò³ç³ì³
unit
baner_;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Animate1: TAnimate;
Label1: TLabel;
procedure
FormCreate(Sender: TObject);
procedure
BitBtn1Click(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.FormCreate(Sender: TObject);
begin
try
Animate1.FileName :=
'Delphi.avi';
Animate1.Play(0,Animate1.FrameCount,1);
except
on Exception do
begin
Label1.Caption :=
'Îøèáêà äîñòóïà ê ôàéëó ' +
Animate1.FileName +
'. Ôàéë íå íàéäåí èëè àíèìàöèÿ' +
'ñîïðîâîæäàåòñÿ çâóêîì.'
;
exit;
end;
end;
end;
// ùåë÷îê
íà êíîïêå Ok
procedure
TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.Close;
end;
end.