Information générale
Catégorie:
Programmation Orientée Object
Titre:
I can't get this form to close Please help
I am trying to get the following PRG code to work
It runs but the form will not release
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
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