Página 1 de 1

Masked Edit

Publicado: Mié Jun 25, 2008 1:08 am
por Nick Hilder
Hi Gents
I have a bunch of TEdit's on a form and 1 TMaskEdit
In the OnExit event I have call a methed with like this
METHOD IsModified( oSender, oNextCtl )
If oSender:lModify == .T.
::oSave:lEnabled := .T.
Endif
RETURN Nil
The problem I want to report is that LModify is not being set to true when I
change the contents on the TMaskEdit control
My mask is this (from the xfm)
WITH OBJECT ::oTimerInterval := TMaskEdit():New( ::oGatewayGroupBox )
:SetBounds( 116, 24, 46, 20 )
:cMessage := "Enter a value between 1 and 99 seconds"
:nMaxLength := 2
:cPicture := "99"
:Value := " "
:OnExit := "IsModified"
:Create()
END