loading.pas

产品信息系统!关于产品基础信息的系统!功能强大!

{//标题：服装MRP系统
 //内容：系统加载的程序
 //修改：
}
unit Loading;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TfrmLoading = class(TForm)
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure imgFlashClick(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  frmLoading        : TfrmLoading;

implementation
uses Global;
{$R *.dfm}

procedure TfrmLoading.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Action := cafree;
  //FreeAndNil(frmLoading);
  {if Assigned(frmLoading) then
  begin
    ShowMessage('jin');
    frmLoading:=nil;//有问题,不能做这样的处理
  end
  else
    ShowMessage('xian');}
end;

procedure TfrmLoading.FormCreate(Sender: TObject);
//var
//      currentTime:Longword;
begin
    Application.Title := c_AppTitle;
    //application.Icon:='';
    //Caption := '欢迎使用' + c_AppTitle;
    //ShowMessage('jinxian');
    {currentTime:=GetTickCount div 1000;
    while ((GetTickCount div 1000)<(currentTime+5)) do//控制时间为3秒
    begin
    end;}

end;

procedure TfrmLoading.imgFlashClick(Sender: TObject);
begin
  //Close;
    //ShowMessage('jinxian');
end;

end.