Ver Mensaje Individual
  #13  
Antiguo 24-09-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola radenf.

El código que te sugirió Casimiro hace exáctamente lo que deseas. También coincido con él, que el problema pasa por donde estas realizando la captura del evento de teclado.

Para asegurarte que el evento de teclado es capturado correctamente proba de este modo:
Código Delphi [-]
...
procedure El_Form.FormCreate(Sender: TObject);
begin
  // el formulario recibe el evento de teclado antes que el control activo
  KeyPreview := True;  // asignable desde el Object Inspector
end;

procedure El_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // ¿ El control activo es el DBGrid y se presionó una letra ?
  if (ActiveControl = El_DBGrid) and (Upcase(Key) in['A'..'Z']) then
     Tabla_o_Query.Locate('NOMBRE_DEL_CAMPO', Key, [loPartialKeylo, CaseInSensitive]); // posicionar
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita