Boton Derecho sobre TStringGrid

[keys]

Hola a todos, en un TstringGrid si se pulsa con el boton derecho sobre una celda que no es la activa, esta no se activa (Es decir no cambia el foco) solo cambia si se hace con el boton izquierdo.

Hay alguna forma de hacer que al hacer click con el boton derecho sobre este componente cambie de celda.

Un Saludo y gracias de a todos.

[*Caro*]

Hola keys, puedes usar el evento OnMouseDown del StringGrid y su parametro Shift que te indica si se ha presionado el boton izquierdo o derecho del mouse, tiene mas opciones pero la que te interesa es ssRight.

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 Col, Row: Integer;
begin
 if Shift = [ssRight] then
  begin
   StringGrid1.MouseToCell(X, Y, Col, Row);
   StringGrid1.Row := Row;
   StringGrid1.Col := Col;
  end;
end;

Saluditos