>Hi everybody,
>
>I think there is no solution for the problem I'll describe bellow but here it goes anyway.
>
>I have a special textbox class called txtDate. This class has the following code in its Init:
>

>if not dodefault()
>	return .f.
>endif
>
>with this
>	if empty(.cControlSource)
>		.cControlSource = .controlsource
>	endif
>
>	if empty(.cControlSource)
>		if .lDateTime
>			.value = iif(.lCurrent,datetime(),{//::}) && Initialize with the current or empty datetime
>		else
>			.value = iif(.lCurrent,date(),{}) && Initialize with the current or empty date
>		endif
>	endif
>
>	if type('.ControlSource') = "C" or .lDateTime
>		do case
>		case .lDateTime OR type(.controlsource) = "T"
>			* we can not set format to R
>			.Format = "R"
>
>		otherwise
>			.format = "D"
>			.inputmask = ""
>		endcase
>	endif
>endwith
>

>
>I use StrictDataEntry property as 0 - Loose and InputMask as =strtran(CHRTRAN(TRANSFORM(DATETIME()),"1234567890","9999999999"),"P","A")
>

With a datetime/date value VFP It doesn't accept an inputmask.


>The problem is when I want to use this control for time dataentry. The separators don't stay put...
>
>Any way to solve the problem? I really need a "T" format which would be the same as "D" for datetime.
>
>Thanks in advance.