-=> 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)
|