Sorting a flexgrid control from the column header 2

[dlambert]

I have several datagrid controls that sort based on a column header click event, but the Flexgrid does not have a headerclick event. Any ideas how I can accomplish the same thing as my datagrid control so that me users don't have to think about right clicking on a selected column?

 

[HermanvLimbeek]

Try this:

Private Sub FG1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If FG1.MouseRow = 0 Then
If Button = 1 Then 'left mouse button
FG1.col = FG1.MouseCol
FG1.ColSel = FG1.MouseCol
FG1.Sort = 1
End If
End If
End Sub

Herman :-Q