Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
somebody provided me following codes, but those do not work
Pleaes modify
Maybe bindevent can help you.
The idea is to write your own handler for queryunload and bind to your forms.
*
* in your main.prg add handler to each form
*
for each m.form in _screen.forms
do myHandler with m.form
endfor
*
* myHandler.prg
*
para oForm
private o
m.o=createobject("myHandler")
=addproperty(m.oForm,"__handler", m.o)
=bindevent(m.oForm,"queryunload",m.o,"doQueryUnload")
define class myHandler as session
datasession=1
function doQueryUnload
=messagebox("Please press close button to exit",_screen.ActiveForm.caption)
nodefault
enddefine
Précédent
Suivant
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