
(*
 Delphi Object and Component Reference
# {bmc bm9.BMP} MouseToCell example
This example uses a string grid on a form. When the user selects a cell in the grid and releases the mouse button, the column and row coordinates for the cell appear in the cell. The code for displaying the coordinates is written in the OnMouseUp event handler:
*) 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  StringGrid1->DefaultColWidth = 100;
}
void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  long Column, Row;
  StringGrid1->MouseToCell(X, Y, Column, Row);
  StringGrid1->Cells[Column][Row] = "Col " + AnsiString((int)Column) +
                                    ",Row " + AnsiString((int) Row);
} 
