Hola DSK25.
Código:
void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y) {
TStringGrid *Grid = static_cast<TStringGrid*>(Sender);
if (Button == mbRight) {
Grid->Row ? Grid->Row-- : Grid->Row++;
Grid->Options = Grid->Options << goRowSelect;
Grid->Row = ((TGridCoord)Grid->MouseCoord(X,Y)).Y;
}
else
Grid->Options = Grid->Options >> goRowSelect;
}
Con el botón derecho del mouse se activa la selección de fila y con el izquierdo se desactiva.
Saludos.