Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BUG: Form will not release with debugger open
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00855964
Message ID:
00855999
Vues:
11
Mark,

Are you suspended? What have you got in the Watch window?

>I am reporting this bug here for confirmation before posting in the VFP Bug list.
>
>Problem: Form will not release when the debugger is open.
>
>System: Win 2k SP4 with VFP8 SP1
>
>Repro Code:
>ACTIVATE WINDOW debug
>PUBLIC loForm
>loForm = CREATEOBJECT('_Form')
>loForm.Show()
>
>DEFINE CLASS _form AS form
>
>	top = 0
>	left = 0
>	height = 300
>	width = 300
>	
>	ADD OBJECT cmdClose AS _commandbutton WITH ;
>		top = 100, ;
>		left = 100, ;
>		height = 27, ;
>		width = 120, ;
>		caption = [Click Me to Test]
>
>	PROCEDURE QueryUnload
>		*!* some clean up code here
>		IF NOT THIS._PreQueryUnloadHook()
>			RETURN .f.
>		ENDIF
>		THIS.Release()
>	ENDPROC
>	PROCEDURE _PreQueryUnloadHook
>		RETURN .t.
>	ENDPROC
>ENDDEFINE
>DEFINE CLASS _commandbutton AS CommandButton
>
>	PROCEDURE Click
>		THIS.OnClick()
>	ENDPROC
>	PROCEDURE OnClick
>		THISFORM.QueryUnload()
>	ENDPROC
>
>ENDDEFINE
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform