unitsplashform.pas

来自「串口短信猫收发软件。支持西门子TC35i设备」· PAS 代码 · 共 69 行

{*******************************************************}
{                                                       }
{  名称：TSplashForm类                                  }
{  功能：                                               }
{      1.显示版权信息                                   }
{  调用：                                               }
{      1.创建实例后调用Show方法                         }
{                                                       }
{*******************************************************}

unit UnitSplashForm;

interface

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

type
  TSplashForm = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent;Flag:Integer);
  end;

var
  SplashForm: TSplashForm;
  
implementation

{$R *.DFM}

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

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

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

end.