Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
oform1=NEWOBJECT("form1")
oform1.Show()
DEFINE CLASS form1 AS form
ADD OBJECT myCB as Combobox WITH FontSize=30,Height=50,Width=150
ADD OBJECT myCM as CommandButton WITH Caption="Show List",Height=100
PROCEDURE Init
thisform.myCM.Top=thisform.myCB.Height
thisform.myCM.Width=thisform.myCB.Width
thisform.myCB.AddItem('One')
thisform.myCB.AddItem('Two')
thisform.myCB.AddItem('Three')
PROCEDURE myCM.Click
thisform.myCB.Setfocus()
KEYBOARD '{Alt+DNARROW}'
ENDDEFINE
oform1=NEWOBJECT("form1")
oform1.Show()
READ EVENTS
DEFINE CLASS form1 AS form
ADD OBJECT myCB as Combobox WITH FontSize=30,Height=50,Width=150,Style=2
PROCEDURE Init
thisform.myCB.AddItem('One')
thisform.myCB.AddItem('Two')
thisform.myCB.AddItem('Three')
PROCEDURE myCB.Click
KEYBOARD '{Alt+DNARROW}'
ENDDEFINE
oForm1=NEWOBJECT("form1")
oForm1.SHOW()
READ EVENTS
DEFINE CLASS form1 AS Form
ADD OBJECT myCB As Combobox WITH FontSize=30,Height=50,Width=150,Style=2,React=.T.
PROCEDURE Init
THISFORM.myCB.AddItem('One')
THISFORM.myCB.AddItem('Two')
THISFORM.myCB.AddItem('Three')
PROCEDURE myCB.Click
IF This.React
KEYBOARD '{Alt+DNARROW}'
ENDIF
PROCEDURE myCB.DropDown
This.React = .F.
PROCEDURE myCB.Valid
This.React = .T.
RETURN DODEFAULT()
ENDDEFINE