Seleccionar fila con clic derecho en StringGrid

[ecfisa]

Hola DSK25.

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.