for example:

i want to input the date with "format1"(when focus into the datefield,the date is formated with format1) and i want to display the date with "format2" (when focus out the datefield,the date is formated with format2) .

format1 and format2 is not fixed.they are user defined.

now ,i can do the format change with method FocusIn and FocusOut, but when the format1 is not type of datetime ,i can't change the date.

source:

{self.add-event-handler
{on FocusIn do
set self.format-spec = {proc { date:DateTime,
df:DateField}:String
{return {Format self.value.info.locale-date, Format = self.Format}}
}
}
}

{self.add-event-handler
{on FocusOut do
set self.format-spec = {proc { date:DateTime,
df:DateField}:String
{return {Format self.value.info.locale-date, Format = self.DisplayFormat}}
}
}
}

{curl 6.0 applet}
 
{let constant frm:Frame = {Frame}}
{value frm}
 
{let constant df:DateField =
    {DateField
        value = {DateTime.date},
        date-format-spec = "mdy",
        {on FocusIn at df:DateField do
            set df.date-format-spec = "dmy"
        },
        {on FocusOut at df:DateField do
            {frm.add {df.get-text}, replace? = true}
            set df.date-format-spec = "mdy"
        }   
    }
}
 
{value df}