ChangeGridMethod('Text1','MouseDown',_ClipText) or ChangeGridMethod('Text1','MouseDown','') to clear method code from all textboxes
PROCEDURE ChangeGridMethod LPARAMETERS tcControlName,tcMethodName,tcMethodCode LOCAL lnSelObjectCount, loGridRef, lnCnt, loControlRef LOCAL ARRAY laSelectedObject[1] lnSelObjectCount = ASELOBJ(laSelectedObject) IF lnSelObjectCount = 0 WAIT WINDOW 'Select a grid in Form Designer first' nowait RETURN ENDIF loGridRef = laSelectedObject[1] IF loGridRef.BaseClass # 'Grid' WAIT WINDOW 'One Grid object must be selected' nowait RETURN ENDIF FOR lnCnt = 1 TO loGridRef.ColumnCount IF type("loGridRef.Columns(lnCnt)."+tcControlName) = 'O' loControlRef = EVALUATE("loGridRef.Columns(lnCnt)."+tcControlName) loControlRef.WriteMethod(tcMethodName,tcMethodCode) ENDIF NEXT RETURN