Information générale
Catégorie:
Programmation Orientée Object
Titre:
How can I close a form that was defined in a class
When I call this code from my app it works but I can't close the form
Thanks in advance!
xTmpFormMess = CREATEOBJECT("ApMess","Running Installation Please Wait...")
DEFINE CLASS apMess AS FORM
DoCreate = .T.
CAPTION = 'Please Note!'
WIDTH = 430
WINDOWTYPE = 1
VISIBLE = .T.
AUTOCENTER = .T.
ADD OBJECT lblZmess AS Label WITH ;
AutoSize = .T., ;
FontSize = 20, ;
Caption = "", ;
Height = 39, ;
Left = 10, ;
Top = 96, ;
Width = 232
ADD OBJECT tmrMess AS TIMER WITH ;
INTERVAL = 3000
PROCEDURE tmrMess.TIMER
? TIME()
THISFORM.RELEASE()
ENDPROC
*-- Form init
PROCEDURE INIT
LPARAMETERS lcMessage
THISFORM.lblZmess.CAPTION = lcMessage
THISFORM.SHOW()
ENDPROC
ENDDEFINE
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