unitsplashform.pas

手机批发商进销存管理

unit UnitSplashForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, RzLabel, jpeg, MPlayer, ActnList ;

type
  TSplashForm = class(TForm)
    Image1: TImage;
    RzLabel1: TRzLabel;
    Timer1: TTimer;
    ActionList1: TActionList;
    Action1: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent;Flag:Integer);
  end;

var
  SplashForm: TSplashForm;
  
implementation

uses UnitDM, UnitTestForm;

{$R *.DFM}

procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TSplashForm.FormCreate(Sender: TObject);
begin
  RzLabel1.Visible := False;  
end;

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
  Image1.Height := Image1.Height + 20;
  if Image1.Height>=400 then
  begin
    Timer1.Enabled := False;
    RzLabel1.Visible := True;
  end;
end;

constructor TSplashForm.Create(AOwner: TComponent; Flag: Integer);
begin
  inherited Create(AOwner);
  if Flag=0 then
  begin
    RzLabel1.Visible := True;
    Image1.Align := alClient;
    Timer1.Enabled := False;
  end
  else
  begin
    RzLabel1.Visible := False;
    Image1.Align := alNone;
    Timer1.Enabled := True;
  end;
end;

procedure TSplashForm.Action1Execute(Sender: TObject);
begin
  if not Assigned(TestForm) then
  TestForm := TTestForm.Create(nil);
  TestForm.ShowModal;
end;

procedure TSplashForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=27 then Close;
end;

procedure TSplashForm.Image1DblClick(Sender: TObject);
begin
  Close;
end;

end.