General information
Category:
Object Oriented Programming
Title:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only