TMSFMXGrid Row Dragging

I am using the TMSFMXGrid and set the FixedRows := 1. As the First row would be used for the column headers. I also set the Keyboard.RowDragging := True .

All these allows me to perform my row dragging. However if I were to drag a row above the "header" row, it is still allowed. Is there a way to prevent this from happening ?

So far I only saw OnRowDragged event which is triggered after the row is dragged.

Thanks.

The expected way to disable this is:


procedure TForm1.TMSFMXGrid1CanDragRow(Sender: TObject; ARow: Integer;
  var Allow: Boolean);
begin
  Allow := ARow > 0;
end;

but we have seen an issue with the OnCanDragRow event implementation.
We have fixed this meanwhile, so in the next update of TTMSFMXGrid, you will be able to control it this way.