loGrid = .Null. loObj = Sys(1270) If Upper(loObj.BaseClass) # 'GRID' And Type('loObj.Parent')='O' Do While Type('loObj.Parent')='O' loObj = loObj.Parent If Upper(loObj.BaseClass) = 'GRID' loGrid = loObj Exit Endif Enddo Else loGrid =loObj Endif If !Isnull(loGrid) && Found a grid Store 0 To lnWhere, lnRelRow, lnRelCol,lnPanel loGrid.GridHitTest(Mcol(Wontop(),3),Mrow(Wontop(),3), ; @lnWhere,@lnRelRow,@lnRelCol,@lnPanel) If lnWhere = 1 && Header Wait Window 'Header of relative column '+Transform(lnRelCol) TIMEOUT 2 Endif loGrid.RightClick() && Elyse rightclick EndifCetin
>>loObj = SYS(1270) >>IF UPPER(loObj.BaseClass) = 'GRID' >> loObj.RightClick() >>endifCetin