Dar control a una Celda en un TStringGrid

[Jorge Rojas M.]

Hola compañeros, necesito de su colaboración. ¿Cómo le doy el control a una celda en un TStringGrid? esto es si estoy en la celda 1,1 y quiero que mediante código cuando el usuario oprima enter pase a a celda 1,3 para editarla que debo hacer en TStringGrid. Baje el TAdvStringGrid y cumple con este requerimiento FocusCell 1,3, sin embargo debo implementarlo en un TSringGrid, espero se pueda!

Gracias por su colaboración...

[camariere]

Empezado por Jorge Rojas M.

Hola compañeros, necesito de su colaboración. ¿Cómo le doy el control a una celda en un TStringGrid? esto es si estoy en la celda 1,1 y quiero que mediante código cuando el usuario oprima enter pase a a celda 1,3 para editarla que debo hacer en TStringGrid. Baje el TAdvStringGrid y cumple con este requerimiento FocusCell 1,3, sin embargo debo implementarlo en un TSringGrid, espero se pueda!

Gracias por su colaboración...

Hola Jorge Rojas M.

Puedes usar el evento OnKeyDown del StringGrid y asignar la columna donde quieres que se traslade.

Código Delphi [-]
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = 13 then begin
     StringGrid1.Col := 3;
  end;
end;

saludos