DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = -1, ; Height = 217, ; Left = 12, ; RecordSource = "labels", ; Top = 0, ; Width = 301, ; Name = "Grid1" PROCEDURE grddblclick WAIT WINDOW TRANSFORM(RECNO()) ENDPROC PROCEDURE Init FOR EACH loColumn IN ThisForm.grid1.Columns FOR EACH loControl IN loColumn.Controls IF UPPER(loControl.BaseClass) = "TEXTBOX" BINDEVENT(loControl, "DblClick", ThisForm, "grdDblClick") ENDIF ENDFOR ENDFOR ENDPROC ENDDEFINE