Easy to use STOP messagebox. Brings up the correct ICON and title.
SAVE this procedure as one of your public methods in your classlib OR procedure file.
SEE FAQ - MESSAGEBOX YESNO for more details.
#ENDIF
PUBLIC tcSystem
tcSystem = "Tek Tip"
STOP("You just encountered an error.")
*******************************************************************************
PROCEDURE STOP
LPARAMETER tcMessage,tcTitle
IF PCOUNT() = 0
tcMessage = "Duh... No Message Passed"
ENDIF
IF TYPE('tcMessage') = 'C'
IF TYPE('tcTitle') = 'C'
* fall thru on character types
ELSE
* invalid data type for this function
tcTitle = tcSystem
ENDIF
ELSE
tcMessage = "INVALID MESSAGE PASSED INTO BASE CLASS!"
tcTitle = tcSystem
ENDIF
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.