TIP: Click on subject to list as thread! ANSI
echo: delphi
to: STEPHEN WHITIS
from: ERIC SCHREIBER
date: 1996-09-29 11:38:00
subject: Splash Screens

-=> Stephen Whitis wrote with startling eloquence to All <=- 
SW> I can't seem to find any info on creating a spash screen which
SW> would show on startup.  Can anyone point me in the right
SW> direction?
Create your splash form (or banner as I call it in the example below) as you 
would any other form. You'll probably want to set it's borderstyle property 
to 'none'.
In your Project Manager, click the Options button. Click the Forms tab. Move 
your Banner form to the 'Available' column, not 'Auto-create'. If you don't 
do this, you'll get funky results, like a splash screen that sticks around, 
hiding behind your app.
Then, modify your .dpr file (using View|Project source) as necessary to look 
like the following...
(**** begin .dpr program code ****)
program MyProg;
uses
  Forms,
  main in 'MAIN.PAS' {MainForm},
  banner in 'BANNER.PAS' {Banner};
{$R *.RES}
begin
  Banner := TBanner.Create(Application);
  Banner.Show;
  Banner.Update;
  Application.Title := 'My Program';
  Application.CreateForm(TMainForm, MainForm);
  Banner.Hide;
  Banner.Free;
  Application.Run;
end.
(**** end .dpr program code ****)
So, you're starting your program, explicitly creating the banner, then 
creating all your other forms the normal way (Application.CreateForm), then 
finally getting rid of the banner before continuing with running your app.
EEAS
eric@kobayashi.com
--- Blue Wave/DOS v2.21
---------------
* Origin: The Aircrash Bureau Chicago 312-278-1195 33.6 (1:115/327)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.