FoxPro/Visual FoxPro - Ayuda porfa

còmo hago para colocarle un mensaje en el cuadro de texto "txtfod" para cuando ingresen un fecha erronea, por ejemplo 25/25/2525 aparesca este mensaje "(X) Error, la fecha que ingreso es incorrecta" y cuando el mensaje se quite que se borre lo escrito en el cuadro de texto "txtfod"

**************************************************
*-- Form: form1 (c:\fecha.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Marca de hora: 11/25/04 07:15:04 PM
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 67
Width = 329
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT txtfod AS textbox WITH ;
DateFormat = 5, ;
Alignment = 2, ;
Value = "", ;
ControlSource = "", ;
Format = "!", ;
Height = 23, ;
InputMask = "99/99/9999", ;
Left = 120, ;
MaxLength = 8, ;
ReadOnly = .F., ;
TabIndex = 2, ;
Top = 12, ;
Width = 75, ;
DisabledBackColor = RGB(255,255,255), ;
Name = "txtFod"
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
gracias
juan

Es mas facil que elimines el input mask y en Format uses D , es decir campo fecha , con eso el sistema se encarga de no permitir fechas erroneas y genera el la mascara ... ahora bien si quieres controlar tu las fechas , tendras que usar algo como:

if sys(11,thisform.txtfod.value)<1
wait window "Fecha incorrecta" nowait && o como quieras
thisform.txtfod.value={ / / }
endif

en el valid o lostfocus del campo ... luego en el campo siguiente o donde quieras comprobar si esta vacio y devolverle el foco ... mas o menos
por ejemplo