u_form2.pas

很好地delphi书籍源码

unit U_Form2;

interface

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

type
  TForm2 = class(TForm)
    Animate1: TAnimate;
    ToolBar1: TToolBar;
    OpenTB: TToolButton;
    StopTB: TToolButton;
    OpenDialog1: TOpenDialog;
    PlayTB: TToolButton;
    ForeTB: TToolButton;
    AfterTB: TToolButton;
    procedure OpenTBClick(Sender: TObject);
    procedure PlayTBClick(Sender: TObject);
    procedure StopTBClick(Sender: TObject);
    procedure ForeTBClick(Sender: TObject);
    procedure AfterTBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.OpenTBClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Animate1.FileName:=OpenDialog1.FileName;
    Animate1.Active:=true;
  end;

end;

procedure TForm2.PlayTBClick(Sender: TObject);
begin
  Animate1.Play(Animate1.StartFrame,Animate1.StopFrame,0);
end;

procedure TForm2.StopTBClick(Sender: TObject);
begin
  Animate1.stop;
end;

procedure TForm2.ForeTBClick(Sender: TObject);
begin
  Animate1.Play(Animate1.StartFrame,Animate1.FrameCount div 2 ,0);
end;

procedure TForm2.AfterTBClick(Sender: TObject);
begin
  Animate1.Play(Animate1.FrameCount div 2,Animate1.StopFrame,0);
end;

end.