Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MSHFlexGrid1.Row = MSHFlexGrid1.MouseRow
End Sub
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
MSHFlexGrid1.Row = MSHFlexGrid1.MouseRow
MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
End If
End Sub
MSHFlexGrid1.Col = 0
Сейчас этот форум просматривают: AhrefsBot и гости: 125