Delphi - Como puedo...

Consco el codigo para moverme entrre los controles usando Enter en lugar de TAB y usar el ESC como si fuera Shift + TAB para regresarse erl problema o lo que quiero hacer es como moverme a través de las celdas de un Grid hacia adelante con ENTER y atras con ESC..

Espero y me ayuden gracias..

Asigna los eventos OnKeyDown y OnKeyUp para reemplazar al ENTER por TAB y el ESCape por la felcah izquierda:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) and (Shift = []) then begin
Key := VK_TAB;
end else if (Key = VK_ESCAPE) and (Shift = []) then begin
Key := VK_LEFT;
end;
end;

Para el caso de la tecla ENTER, también hay que modificarla en el evento OnKeyPress:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Key := #9;
end;

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php