backgroundu.pas

来自「图书馆管理系统设计详细资料」· PAS 代码 · 共 42 行

unit backgroundu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, SUIProgressBar, SUIForm, SUIImagePanel;

type
  Tbackgroundfm = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    Image: TImage;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  backgroundfm: Tbackgroundfm;

implementation
 uses loginu ;
{$R *.dfm}

procedure Tbackgroundfm.FormActivate(Sender: TObject);
begin
  Application.CreateForm(Tloginfm, loginfm);
  loginfm.ShowModal;
end;

procedure Tbackgroundfm.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName)+'pic\'+'background.bmp') then
image.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'pic\'+'background.bmp');
end;

end.