Information générale
Catégorie:
Codage, syntaxe et commandes
Jim,
Thanks for the reply. The top level form is modless. Here is the startup code.
public m_Shutdown
m_Shutdown = .F.
on error do \TurnKey4\Error.prg
on shutdown do \TurnKey4\Shutdown.prg
declare _fpreset in msvcrt20.dll
=_fpreset()
set century on
set deleted on
set confirm on
set talk off
release all
close databases all
do form \TurnKey4\forms\mainworkarea.scx
read events
* The Folowing Terminates The Program
if m_Shutdown = .F.
modify window screen title "Microsoft Visual FoxPro"
set sysmenu to default
release windows
cancel
else
quit
endif
Thanks
Mark Parker
MAP Software, Inc.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement