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;
    PlayTwoTB: TToolButton;
    OpenDialog1: TOpenDialog;
    Animate1: TAnimate;
    SpaceTB: TToolButton;
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    FrameTB: TToolButton;
    procedure Animate1Open(Sender: TObject);
    procedure StartTBClick(Sender: TObject);
    procedure StopTBClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure PlayOneTBClick(Sender: TObject);
    procedure PlayTwoTBClick(Sender: TObject);
    procedure FrameTBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses U_Form2;

{$R *.DFM}

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.PlayTwoTBClick(Sender: TObject);
begin
   Animate1.Play(Animate1.StartFrame,Animate1.StopFrame,2);
end;

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

end.