Delphi Programming question

Is it possible to view a start-up picture when executing an application, like most known programs (Word,Excel,Delphi etc.). Word for example, shows a small picture where you can read the software version, who installed the software, and so on. I think there must be a special procedure for this, but I cannot find it.

I run Delphi Developer 2.0.

Thanks!
Erik N

Erik NAsked:
Who is Participating?
 
ZifNabConnect With a Mentor Commented:
Hi Erik N,

We call it a splash screen. Here's the code :

Put it in your Project source code :

program Sensi32;


uses
  Forms,
  MainSensi in 'MainSensi.pas' {fMaster},
  Splash in 'Splash.pas' {SplashForm},

{$R *.RES}

begin
  Application.Initialize;
  Splashform := TSplashForm.Create(Application);
  SplashForm.Show;
  Splashform.Update;
  Application.CreateForm(TfMaster, fMaster);
  Application.Run;
end.

The code for the splash form :

 It's like all forms, to make it more splash use borderstyle bsNone.
 Put also a timer on it. If you don't use a timer you have to remove the splashform yourself (in the project source code).

unit Splash;

interface

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

type
  TSplashForm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SplashForm: TSplashForm;

implementation

{$R *.DFM}

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

end.

Need more help, or example files? Just ask.

Have fun,
ZifNab;
0
 
kriszCommented:
Just a note.

It's good to free the splash form, because it's not needed
after startup.
0
 
Erik NAuthor Commented:
Thank you dfor this, ZifNab!

Erik N

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.