SET NOTIFY ON CREATE CURSOR C1 (COL1 Int, Col2 Int) INSERT INTO C1 VALUES (1, 2) LOCAL FT AS F1 m.FT = CREATEOBJECT("F1") m.FT.Show(1) DEFINE CLASS F1 AS Form ADD OBJECT Chk1 AS Checkbox WITH Autosize = .T., Caption = "SET NOTIFY OFF", Value = .F. ADD OBJECT G1 AS Grid WITH Top = 30, Recordsource = "C1", ColumnCount = 2 FUNCTION G1.Init This.Columns(1).ReadOnly = .T. ENDFUNC FUNCTION Chk1.InteractiveChange IF This.Value SET NOTIFY OFF ELSE SET NOTIFY ON ENDIF ENDFUNC ENDDEFINE