>>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 >>