Posicionarse en DBGrid según tecla pulsada

[radenf]

Hola amigos:

En un DBGrid conectado a una base de datos Access, que posee un primer campo Nombre, necesito posicionarme en el primer registro en que el nombre comienze con la letra de la tecla que se pulsa.

Ejemplo: Si pulso la tecla p que se posicione en Pablo y si pulso la tecla m lo haga en Matías.

Mis escasos conocimientos no me han permitido dar con el código y en las búsquedas no he encontrado nada que relacione los eventos del teclado con esta condición.
Agradezco desde ya cualquier aporte.

Saludos y muchas gracias

[[movorack]]

Hola

Podrías ir haciendo un locate parcial o bien podrías colocar una caja de texto donde escribas una condición para filtrar la grid por el campo nombre

[radenf]

Gracias movorack

Ya lo intenté con un query que se activa en el evento OnChange de un Edit, pero no me sirve ya que debe ser algo más dinámico, porque debo vaciar el Edit después de pulsar una tecla, para acceder a otra.
El locate parcial no lo he intentado.
Creo que sería más directo y mejor acceder a través de codificar las acciones del teclado, que es lo que busco.

Saludos

[radenf]

Logré solucionar el problema utilizando el siguiente código, que dejo por si alguien lo necesita.
Utilizé el locate parcial como sugirió movorack y funcionó.

Código Delphi [-]
procedure Form1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = ord('A') then begin
Tabla1.Locate('nombre', 'a', [loCaseInsensitive, loPartialKey])
end
else
begin
if key = ord('B') then begin
Tabla1.Locate('nombre', 'b', [loCaseInsensitive, loPartialKey])
end
else
begin
.......

y así sucesivamente hasta llegar a la Z

Muchas gracias por tu ayuda movorack

[Casimiro Notevi]

Creo que lo puedes acortar un poco. (escribo de memoria):

Código Delphi [-]
procedure TForm1.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['a'..'z'] then
    tabla1.locate('nombre', key, [locaseinsensitive,lopartialkey]);
end;

[radenf]

Muchas gracias Casimiro Notevi

Cuando me llegó el email indicando tu participación en el hilo, pensé que me ibas a sancionar por el título o me ibas a mandar a leer la guía de estilo.
Hablando en serio: Probé tu código y si bien no da ningún error, no realiza la acción requerida.
Ideal sería poder acortar el código que yo puse, que ocupa 172 líneas.
¿Cúal es la diferencia en usar onKeyPress en vez de onKeyDown?

Salu2