[此贴子已经被作者于2022-9-8 09:44编辑过]

[此贴子已经被作者于2022-9-8 09:09编辑过]

程序代码：

CREATE CURSOR tt (F1 C(10), F2 C(10), F3 I)
INSERT INTO tt VALUES ("ABC", "123456", 101)
INSERT INTO tt VALUES ("DEF", "654321", 202)
INSERT INTO tt VALUES ("GHI", "456123", 303)
GO TOP 
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT grid1 as myGrid
ENDDEFINE

DEFINE CLASS myGrid as Grid 
    ReadOnly = .t.
    PROCEDURE Init
        FOR EACH oCol IN this.Columns
            IF oCol.CurrentControl=="Text1"
                oCol.RemoveObject("Text1")
                oCol.AddObject("Text1","myTextbox",this)
            ENDIF 
        ENDFOR 
    ENDPROC 
ENDDEFINE

DEFINE CLASS myTextbox as TextBox 
    Visible = .t.
    grid = NULL
    PROCEDURE Init(grid)
        this.grid = grid
    ENDPROC 
    PROCEDURE DblClick
        this.grid.ReadOnly = .f.
    ENDPROC 
    PROCEDURE LostFocus
        this.grid.ReadOnly = .t.
    ENDPROC 
ENDDEFINE

程序代码：

Create Cursor tt (F1 C(10), F2 C(10), F3 I)
Insert Into tt Values ("ABC", "123456", 101)
Clear
Insert Into tt Values ("DEF", "654321", 202)
Insert Into tt Values ("GHI", "456123", 303)
Go Top
Of = Createobject("form1")
Of.Show(1)

Define Class form1 As Form
    AllowOutput = .F.
    AutoCenter = .T.
    Add Object grid1 As myGrid
Enddefine

Define Class myGrid As Grid
    AllowCellSelection = .F.
    RowHeight = 22
    DblTimes = 0        && 用于判断是否首次双击
    
    Procedure DblClick
*!*    ? Textmerge('第 <<This.DblTimes>> 次双击')
        Local nWhere, oo
        Local aTemp[1]
*!*            nWhere = 0
*!*            This.GridHitTest(Mcol(0,3),Mrow(0,3), @ nWhere)
*!*            If nWhere != 3
*!*                Return
*!*            EndIf
        = AMouseObj(aTemp)
        oo = aTemp[1]
        If (Vartype(oo) == 'O') and (Lower(oo.BaseClass) $ ',textbox,combobox,checkbox,XXXX,')
            This.AllowCellSelection = .T.
            This.ReadOnly = .F.
            oo.SetFocus()
        Else
            This.AllowCellSelection = .F.
        EndIf
    Endproc
    Procedure AfterRowColChange(nColIndex)
*!*    ? 'After Event'
        If This.DblTimes > 1
            This.AllowCellSelection = .F.
        EndIf
        This.DblTimes = This.DblTimes + 1
    Endproc
EndDefine

[此贴子已经被作者于2022-9-8 13:18编辑过]