Using the KillFocus Event

Description

The following script prompts the user for their name. It automatically capitalizes the first character of the name, and puts the rest of the name in lower case when the user exits from the control. It also formats the telephone number. When the user exits a control the killfocus event is generated. The event handling code for this script traps the killfocus event, and formats the text in the text box:

Result = ui_dlg_box("Name",<<%dlg%
{region}
Firstname:| [.30fname!fname_*];
Lastname:| [.30lname!lname_*];
Phone:| [.30phone!phone_*]
{endregion};
{region}
<*15&OK> <15&Cancel>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "fname_killfocus" then
    a_dlg_button = ""
    fname = f_upper(fname)
else if a_dlg_button = "lname_killfocus" then
    a_dlg_button = ""
    lname = f_upper(lname)
else if a_dlg_button = "phone_killfocus" then
    a_dlg_button = ""
    phone2 = remspecial(phone)
    if lenphone2? = 10 then
        area_code = substr(phone2,1,3)
        prefix = substr(phone2,4,3)
        suffix = substr(phone2,7,4)
        phone = "("+area_code+") "+prefix+"-"+suffix

    else if lenphone2? = 7 then
        prefix = substr(phone2,1,3)
        suffix = substr(phone2,4,4)
        phone = prefix+"-"+suffix
    else
        'it is not a phone number that we recognize,
        'so, leave phone as is
    end if
else if a_dlg_button = "&OK" .or. a_dlg_button = "&Cancel" then
    'do nothing, dialog will close
else   'the event has not been handled, so set a_dlg_button to "" to keep the dialog open
    a_dlg_button = ""
end if
%code%)

The script produces this dialog box:

Limitations

Desktop applications only