gridhittest函数的用法 - 编程论坛

grid有个重要的函数，gridhittest，烦恼的是，每次运用总会碰到无法得到正确的输出参数。。。

有没有比较了解这个函数的兄弟，帮忙解释一下？

1，点击header的时候，nwhere_out参数为0，按理应该返回1
2，点击Cell的时候，nRow_out可以得到正确的参数，nCol_out=0（按理赢显示第几列），nwhere_out=0（按理应该为3）
3，有数据时，这个函数在数据区不输出nRow_out，nCol_out，nwhere_out
4，鼠标移动到header之间是，nwhere_out应该为2，结果也是0

贴上测试代码

程序代码：

**************************************************
*-- Form:         form1 (d:\documents\visual foxpro 项目\gridhittest.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   09/14/22 09:17:00 PM
*
DEFINE CLASS form1 AS form

    Top = 1
    Left = 0
    Height = 504
    Width = 681
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"

    ADD OBJECT grid1 AS grid WITH ;
        Height = 288, ;
        Left = 12, ;
        Top = 12, ;
        Width = 516, ;
        Name = "Grid1"

    ADD OBJECT label1 AS label WITH ;
        Caption = "点击位置", ;
        Height = 16, ;
        Left = 12, ;
        Top = 312, ;
        Width = 54, ;
        Name = "Label1"

    ADD OBJECT label2 AS label WITH ;
        Caption = "行号", ;
        Height = 16, ;
        Left = 12, ;
        Top = 336, ;
        Width = 38, ;
        Name = "Label2"

    ADD OBJECT label3 AS label WITH ;
        Caption = "列号", ;
        Height = 16, ;
        Left = 12, ;
        Top = 360, ;
        Width = 38, ;
        Name = "Label3"

    ADD OBJECT label4 AS label WITH ;
        Caption = "所在窗格", ;
        Height = 16, ;
        Left = 12, ;
        Top = 384, ;
        Width = 54, ;
        Name = "Label4"

    ADD OBJECT text1 AS textbox WITH ;
        Height = 20, ;
        Left = 72, ;
        Top = 312, ;
        Width = 100, ;
        Name = "Text1"

    ADD OBJECT text2 AS textbox WITH ;
        Height = 20, ;
        Left = 72, ;
        Top = 333, ;
        Width = 100, ;
        Name = "Text2"

    ADD OBJECT text3 AS textbox WITH ;
        Height = 20, ;
        Left = 72, ;
        Top = 354, ;
        Width = 100, ;
        Name = "Text3"

    ADD OBJECT text4 AS textbox WITH ;
        Height = 20, ;
        Left = 72, ;
        Top = 375, ;
        Width = 100, ;
        Name = "Text4"

    ADD OBJECT label5 AS label WITH ;
        Caption = "当前X：", ;
        Height = 16, ;
        Left = 240, ;
        Top = 310, ;
        Width = 38, ;
        Name = "Label5"

    ADD OBJECT label6 AS label WITH ;
        Caption = "当前Y：", ;
        Height = 16, ;
        Left = 240, ;
        Top = 340, ;
        Width = 38, ;
        Name = "Label6"

    ADD OBJECT text5 AS textbox WITH ;
        Height = 20, ;
        Left = 290, ;
        Top = 310, ;
        Width = 100, ;
        Name = "Text5"

    ADD OBJECT text6 AS textbox WITH ;
        Height = 20, ;
        Left = 290, ;
        Top = 340, ;
        Width = 100, ;
        Name = "Text6"

    ADD OBJECT text7 AS textbox WITH ;
        Height = 31, ;
        Left = 290, ;
        Top = 370, ;
        Width = 151, ;
        Name = "Text7"

    ADD OBJECT text8 AS textbox WITH ;
        Height = 20, ;
        Left = 490, ;
        Top = 340, ;
        Width = 100, ;
        Name = "Text8"

    ADD OBJECT text9 AS textbox WITH ;
        Height = 20, ;
        Left = 490, ;
        Top = 370, ;
        Width = 100, ;
        Name = "Text9"

    PROCEDURE MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        thisform.text8.Value=nxcoord
        thisform.text9.Value=nycoord
    ENDPROC

    PROCEDURE grid1.MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        LOCAL nXCoord, nYCoord, nWhere_Out, nRow_Out, nCol_Out, nView_Out
        nwhere_out=0
        nrow_out=0
        ncol_out=0
        nview_out=0
        tf=this.GridHitTest(nXCoord, nYCoord, @nWhere_Out, @nRow_Out, @nCol_Out, @nView_Out)
        IF tf=.t.
        thisform.text1.Value=nwhere_out
        thisform.text2.Value=nrow_out
        thisform.text3.Value=ncol_out
        thisform.text4.Value=nview_out
        ENDIF

        thisform.text5.Value=nxcoord
        thisform.text6.Value=nycoord
        thisform.CurrentX=nxcoord
        thisform.CurrentY=nycoord
    ENDPROC

    PROCEDURE grid1.Init
        temptable=SYS(2015)
        CREATE TABLE &temptable FREE (颜色 c(30), XS N(5),S N(5),M N(5),L N(5),XL N(5),XXL N(5),TOTAL n(6))
        this.RecordMark=.t.
        this.DeleteMark=.f.
        this.SetAll('alignment',2,'header')
        this.headerheight=35
        this.RowHeight=25
        this.recordsource=temptable
        this.AllowAddNew=.t.

        APPEND BLANK
    ENDPROC

    PROCEDURE grid1.Click
        nxcoord=thisform.CurrentX
        nycoord=thisform.CurrentY

        STORE 0 TO nwhere_out,nrow_out,ncol_out,nview_out
        isclicked=this.GridHitTest(nXCoord, nYCoord, @nWhere_Out, @nRow_Out, @nCol_Out, @nView_Out)
        IF isclicked
            thisform.text1.Value=nwhere_out
        ENDIF

    ENDPROC

    PROCEDURE text7.MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        *NODEFAULT

        thisform.text8.Value=nxcoord
        thisform.text9.Value=nycoord
    ENDPROC

ENDDEFINE
*
*-- EndDefine: form1
**************************************************