
(*
 Delphi Object and Component Reference
# {bmc bm9.BMP} OnSelectCell example
The following code ensures that the user cannot select a cell unless it is empty.
*) 
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, long Col, long Row, bool &CanSelect)
{
  CanSelect = (StringGrid1->Cells[Col][Row]== "")
} 
