Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Clear events
Message
 
À
19/07/2006 17:43:41
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
01137850
Message ID:
01137928
Vues:
13
Hi Metin,

Because MODAL window stop at Calling Show() method
If you call MODAL window, don't use READ EVENTS after caling .Show().
o=Createobject("myform")
o.Show

*Read Event && for non modal windows

Wait Window "This wait won't run"

Return



Define Class myform As Form
	WindowType=1
	Add Object btn As mycommand
Enddefine

Define Class mycommand As CommandButton
	Height=30
	Width=100
	Caption="Click Me"
	Procedure Click
	Thisform.Release
	Clear Events
	Endproc
Enddefine
MartinJ

>Hi All,
>if I make form as "as top level form" or I make form as "modeless", wait window command will run. But in that case doesn't run...
>
>
>o=Createobject("myform")
>o.Show
>
>Read Event
>
>Wait Window "This wait won't run"
>
>Return
>
>
>
>Define Class myform As Form
>	WindowType=1
>	Add Object btn As mycommand
>Enddefine
>
>Define Class mycommand As CommandButton
>	Height=30
>	Width=100
>	Caption="Click Me"
>	Procedure Click
>	Thisform.Release
>	Clear Events
>	Endproc
>Enddefine
>
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform