*--
* This program make the DblClick event of a Grid Object
* respond to the DblClick of each Texbox in the grid.
*
* To use: Select the grid in the Foxpro Form Designer,
* and the run this program.
*--
Local lacl(1), lccr, logrd, lcmeth

lccr=chr(13)+chr(10)

If Aselobj(lacl) > 0
logrd=lacl(1)
Release lacl

If logrd.Baseclass = 'Grid'
lcmeth ="*-- Delegate DoubleClick to Grid method"+lccr+;
"Local oGrdObj"+lccr+;
"oGrdObj = this.parent.parent"+lccr+;
"oGrdObj.DblClick()"
For Each oCol In logrd.Columns
oCol.text1.Writemethod('DblClick',lcmeth)
EndFor
Else
MessageBox("No Grid Selected")
Endif
Else
MessageBox("No Grid Selected")
Endif

Return