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