animate.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Animate;

interface

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

type
  TForm1 = class(TForm)
    Animate1: TAnimate;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if checkBox1.Checked then
         Animate1.Repetitions :=0
  else
         Animate1.Repetitions :=1;
  Case Strtoint(Copy(combobox1.Text,1,1))  of
     1: Animate1.CommonAvi:=aviCopyFile;
     2: Animate1.CommonAvi:=aviCopyFiles;
     3: Animate1.CommonAvi:=aviDeleteFile;
     4: Animate1.CommonAvi:=aviEmptyRecycle;
     5: Animate1.CommonAvi:=aviFindComputer;
     6: Animate1.CommonAvi:=aviFindFile;
     7: Animate1.CommonAvi:=aviFindFolder;
     8: Animate1.CommonAvi:=aviRecycleFile;
  end;
  Animate1.Active :=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Text :='aviCopyFile';
end;

end.