Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, Fliccomp;
type
TForm1 = class(TForm)
FlicPlayer1: TFlicPlayer;
Button1: TButton;
Button2: TButton;
procedure BClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BClick(Sender: TObject);
begin
FlicPlayer1.Play;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Flicplayer1.Stop;
end;
end.
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, Fliccomp;
type
TForm1 = class(TForm)
FlicPlayer1: TFlicPlayer;
Button1: TButton;
Button2: TButton;
procedure BClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BClick(Sender: TObject);
begin
FlicPlayer1.Play;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Flicplayer1.Stop;
end;
end.