in your main program
DO FORM splash WITH 60000 && show splash screen for one min
READ EVENTS
set the properties of the splash form
these settings are a must
WindowType = 0 && modeless
ShowWindow = 2 && as a top level form
Desktop = .t.
these settings are only to have the appearence of a splash screen, remove form attributes
AutoCenter = .t. && not a requirement
ClipControls = .f.
Closeable = .f.
MaxButton = .f.
MinButton = .f.
In the InitEvent of the form:
LPARAMETERS lnInterval
ThisForm.Timer1.Interval = lnInterval
In the Destroy event of the form:
clear events
Place a timer control on the form. In the TimerEvent place
ThisForm.Release()
Add what ever graphics and text to suit.
I have modified this to make a Security warning screen that requires user to ankowledge by clicking Accept button. If the form times out or user selects Reject the form returns .f. to main calling program or in the Unloadevent of the form
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.