>CLEAR >PUBLIC oform >oForm = CREATEOBJECT("Form") >oForm.Autocenter = .T. >oForm.Addobject('combo','_combobox') >oForm.combo.Visible = .T. >oForm.Show() > >DEFINE CLASS _combobox AS combobox > lFirstIChange = .T. > Inputmask = "X-X-X" > Format = "R" > PROCEDURE keypress(nKeyCode, nShiftAltCtrl) > IF this.lFirstIChange= .T. > NODEFAULT > DODEFAULT(nKeyCode, nShiftAltCtrl) > this.lFirstIChange = .F. > this.InteractiveChange > ENDIF > ENDPROC > PROCEDURE interactivechange > IF this.lFirstIChange = .T. > RETURN > ENDIF > ACTIVATE SCREEN > ? PROGRAM() > ?'THIS.DisplayValue returns: '+THIS.DisplayValue > ?'THIS.Text returns: '+THIS.Text > ENDPROC >ENDDEFINE >