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.


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