在MSHFlexGrid1控件里面，怎么根据鼠标显示frame

Question

怎么现实,在MSHFlexGrid1鼠标右键位置显示frame？
就像是MSHFlexGrid1鼠标右键显示出弹出菜单一样的位置显示frame
也就是怎么计算frame的top和left值

Answer 1

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        MSHFlexGrid1.Row = MSHFlexGrid1.MouseRow
        MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol
        With Frame1
            .Top = MSHFlexGrid1.Top + MSHFlexGrid1.CellTop
            .Left = MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft
            .Width = MSHFlexGrid1.CellWidth
            .Height = MSHFlexGrid1.CellHeight
            .Visible = True
            .ZOrder 0
        End With
    End If
End Sub