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.
thisform.Text1.Value = this.Value
FOR EACH oColumn IN thisform.Grid1.Columns
BINDEVENT(oColumn,"DblClick",thisform,"CopyCell",2)
ENDFOR
*** In CopyCell Method
AEVENTS(aEvnt)
thisform.Text1.Value = aEvnt[1].Value
DEFINE CLASS MyTextBox AS TextBox
PROCEDURE DblClick
IF PEMSTATUS(thisform,"ClickEvent", 5)
thisform.ClickEvent()
ENDIF
ENDPROC
ENDDEFINE
thisform.Grid1.recordSource = "YourTable"
FOR EACH oColumn IN thisform.Grid1.Columns
IF TYPE("oColumn.MyText1") # "O"
oColumn.AddObject("MyText1", "MyTextBox")
oColumn.CurrentControl = "MyText1"
oColumn.MyText1.Visible = .t. && This is important
ENDIF
ENDFOR