I thought I'd send in this tidbit from
http://delphi.about.com/od/formsdialogs/a/splashscreen.htm?nl=1
This is the code on startup of CPRS ver 25.28
begin
if not UpdateSelf then // only start if not
copying new version
begin
RegisterCPRSTypeLibrary; // will halt program if
/regserver or /unregserver param
Application.Initialize;
frmSplash := nil;
if ParamSearch('SPLASH') <> 'OFF' then // This is how to turn off the
splash Screen
begin
frmSplash := TfrmSplash.Create(Application); // show splash screen
frmSplash.Show; // "
frmSplash.Refresh; // "
end;
Application.Title := 'CPRS - Patient Chart';
Application.HelpFile := 'cprs.hlp';
Application.CreateForm(TdmodShared, dmodShared);
Application.CreateForm(TfrmFrame, frmFrame);
frmSplash.Free; // close & free splash
screen
Application.Run;
end;
SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
Application.Initialize; //this line exists!
SplashScreen.Update;
After the final Application.Create() and before Application.Run statement
add:
SplashScreen.Hide;
SplashScreen.Free;
When looking at the Watch through Delph you see this even through the form
is freed.
frmSplash:([cdInheritable], False, False, (0,0), nil [], nil, nil,
nil,nil,nil,nil, $310)
Probable if you set the do the above steps, then that would truely free the
form.
Stephen K. Miyasato
Pacific Telehealth and Technology Hui
Stephen K. Miyasato
-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
