【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供backgroundu.pas参考,解决您在backgroundu.pas学习中工作中的难题,参考学习。
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.