Cita:
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