u_form1.~pas

很好地delphi书籍源码

unit U_Form1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, Spin, ToolWin;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ComboBox1: TComboBox;
    StartTB: TToolButton;
    StopTB: TToolButton;
    PlayOneTB: TToolButton;
    PlayThreeTB: TToolButton;
    OpenDialog1: TOpenDialog;
    Animate1: TAnimate;
    ToolButton1: TToolButton;
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    ToolButton2: TToolButton;
    procedure Animate1Open(Sender: TObject);
    procedure StartTBClick(Sender: TObject);
    procedure StopTBClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure PlayOneTBClick(Sender: TObject);
    procedure PlayThreeTBClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses U_Form2;

{$R *.DFM}
const AviName:array[1..8] of string=('aviFindFolder','aviFindFile',
                                     'aviFindComputer','aviCopyFiles',
                                     'aviCopyFile','aviRecycleFile',
                                     'aviEmptyRecycle','aviDeleteFile');
procedure TForm1.Animate1Open(Sender: TObject);
begin
  Caption:=Format('当前文件桢数：%d',[Animate1.FrameCount]);
end;

procedure TForm1.StartTBClick(Sender: TObject);
begin
  Animate1.Active:=True;
end;

procedure TForm1.StopTBClick(Sender: TObject);
begin
  Animate1.Stop;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Animate1.CommonAVI:=TCommonAVI(ComboBox1.ItemIndex);
  if (ComboBox1.ItemIndex=0)and(OpenDialog1.Execute) then
    Animate1.FileName:=OpenDialog1.FileName;
end;

procedure TForm1.PlayOneTBClick(Sender: TObject);
begin
   Animate1.Play(Animate1.StartFrame,Animate1.StopFrame,1);
end;

procedure TForm1.PlayThreeTBClick(Sender: TObject);
begin
   Animate1.Play(Animate1.StartFrame,Animate1.StopFrame,2);
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  Animate1.Play(SpinEdit1.Value,SpinEdit2.Value,-1);
end;

end.