
(*
 Delphi Object and Component Reference
# {bmc bm9.BMP} OnRowMoved example
The following code displays the number of rows a row was moved in a label.the first cell of the row.
*) 
void __fastcall TForm1::StringGrid1RowMoved(TObject *Sender, long FromIndex, long ToIndex)
{
  int delta = (FromIndex > ToIndex) ? (FromIndex-ToIndex) : (ToIndex-FromIndex);
  StringGrid1->Cells[0][ToIndex] = IntToStr(delta);
} 
