unitfrmplayavi.pas

《Delphi7编程100例》代码,书配资料

unit unitFrmPlayAvi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Animate1: TAnimate;
    btnPlay: TButton;
    btnStop: TButton;
    odgOpenDialog1: TOpenDialog;
    btnOpen: TButton;
    udUpDown1: TUpDown;
    edtEdit1: TEdit;
    lblLabel1: TLabel;
    procedure btnPlayClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnPlayClick(Sender: TObject);
begin
  Animate1.Play(StrToInt(edtEdit1.Text), Animate1.FrameCount, 1);
  btnPlay.Enabled := false;
  btnStop.Enabled := Enabled;
  btnOpen.Enabled := false;
end;

procedure TForm1.btnOpenClick(Sender: TObject);
begin
  if odgOpenDialog1.Execute then
  begin
    Animate1.FileName := odgOpenDialog1.FileName;
    btnOpen.Enabled := false;
    btnPlay.Enabled := true;
    udUpDown1.Max := Animate1.FrameCount;
    udUpDown1.Min := 0;
  end
  else
    btnStop.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  btnPlay.Enabled := false;
  btnStop.Enabled := false;
  btnOpen.Enabled := true;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  Animate1.Stop;
  btnStop.Enabled := false;
  btnOpen.Enabled := True;
  if Animate1.FileName <> '' then
    btnPlay.Enabled := true
  else
    btnPlay.Enabled := false;
end;

end.