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.
o = CREATEOBJECT('activeform')
o.KeepActive=.t. && for sake of demonstration
o.Show()
DEFINE CLASS Activeform as Form
ADD OBJECT text1 as textbox WITH top=32,left=32
ADD OBJECT text2 as textbox WITH top=64,left=32
KeepActive = .f.
LastActive = .null.
PROCEDURE Paint()
IF ISNULL(Thisform.LastActive) OR Thisform.LastActive<> Thisform.ActiveControl
Thisform.LastActive = Thisform.ActiveControl
Endif
Endproc
PROCEDURE Deactivate()
IF Thisform.KeepActive AND VARTYPE(Thisform.LastActive)='O'
Thisform.LastActive.SetFocus()
ENDIF
ENDPROC
ENDDEFINE