frame_usplash.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 68 行

unit frame_uSplash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Db, DBTables, ExtCtrls, jpeg, frame_uBase;

type
  TFrame_frmSplash = class(Tframe_frmBase)
    Panel1: TPanel;
    lbl1: TLabel;
    lblSysName: TLabel;
    lblVer: TLabel;
    lblStat: TLabel;
    Image1: TImage;
    lblCopyRight: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
//    procedure getinfo();
  end;

var
  Frame_frmSplash:TFrame_frmSplash;

implementation





{$R *.DFM}

procedure TFrame_frmSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure TFrame_frmSplash.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  self.close;
end;

procedure TFrame_frmSplash.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = 13) or (key = 27) then self.close;
end;

procedure TFrame_frmSplash.FormCreate(Sender: TObject);
begin
  inherited;
  lblSysName.caption := SysParam.SysName;
  lblVer.caption := SysParam.Ver;
  lblCopyRight.Caption:= SysParam.CopyRight;
end;

end.