Hi everybody,

UPDATE. I found, that the message is not shown if SET NOTIFY ON. Otherwise it is shown. So I may use WAIT WINDOW for SET NOTIFY ON and Messagebox for SET NOTIFY OFF.

I'm working on Date class, which would allow custom validation instead of built-in VFP.

Here is my code: (BTW, instead of custom property cControlSource I can use tag)

*---------------------- Location Section ------------------------
*   Library: 	Acustomcontrols.vcx
*   Class: 		Txtdate  
*   Method: 	Gotfocus() 
*----------------------- Usage Section --------------------------
*)  Description: 
*)

*   Scope:      Public
*   Parameters: 
*$  Usage:      
*$              
*   Returns:  
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	01/26/2005 - NN 
*		MODIFIED
*----------------------------------------------------------------
this.cControlSource=this.ControlSource
this.ControlSource=""

*---------------------- Location Section ------------------------
*   Library: 	Acustomcontrols.vcx
*   Class: 		Txtdate  
*   Method: 	Valid() 
*----------------------- Usage Section --------------------------
*)  Description: 
*)

*   Scope:      Public
*   Parameters: 
*$  Usage:      
*$              
*   Returns:  
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	01/26/2005 - NN 
*		MODIFIED
*----------------------------------------------------------------
IF !EMPTY(chrtran(This.Text,"/.","")) AND EMPTY(This.Value)
   *This.Value=CTOD("^"+STR(YEAR(DATE()),4)+"-"+STR(MONTH(DATE()),2)+"-"+LEFT(This.Text,2))
   =ErrorMsg("Wrong date typed!")
   WAIT WINDOW NOWAIT "Wrong date typed!"
   *this.Value = {}
   RETURN 0
ENDIF

*---------------------- Location Section ------------------------
*   Library: 	Acustomcontrols.vcx
*   Class: 		Txtdate  
*   Method: 	Lostfocus() 
*----------------------- Usage Section --------------------------
*)  Description: 
*)

*   Scope:      Public
*   Parameters: 
*$  Usage:      
*$              
*   Returns:  
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	01/26/2005 - NN 
*		MODIFIED
*----------------------------------------------------------------
this.ControlSource=this.cControlSource

This doesn't always show my messagebox (ErrorMsg is just a wrapper for Messagebox function). What can I do? What are the values for nDialogBoxType which are not specified in VFP Help file?

Thanks in advance.