flash.~pas

台湾一小管理软件 台湾一小管理软件

unit flash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure ShockwaveFlash1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormClick(Sender: TObject);
begin
   shockwaveflash1.Stop;
   shockwaveflash1.Rewind;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  shockwaveflash1.Movie:=ExtractFilePath(Application.EXEName)+'\flash\test.swf';
  shockwaveflash1.Play;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
     shockwaveflash1.Stop;
   shockwaveflash1.Rewind;
end;

procedure TForm1.ShockwaveFlash1Exit(Sender: TObject);
begin
        shockwaveflash1.Stop;
   shockwaveflash1.Rewind;
end;

end.