busquedas con codigo delphi

[ale_metall]

Hola amigos, solicito la ayuda de ustedes, estoy haciendo una aplcacion que maneja clientes y quiero hacer una busqueda por dni o apellido, en la que tengo un edit, para el dato buscado y un dbgrid. Necesito que este me muestre los datos que se asemejen a los ingresados en el edit. Pero el roblema es que quiero hacerlo para que me vaya mostrando a medida q voy tipeando eL dato a buscar y no cuando presiono un boton de "buscar", por lo que no se como hacerlo, no me sirve un table1.findkey o findnearest??? lo se hacer con esto pero necesito de un boton y en este caso no lo quiero!!

desde ya muchas gracias...

saludos

[ContraVeneno]

Código Delphi [-]
procedure TfrmBuscar.edtBuscarKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if not dxgbuscar.DataSource.dataset.locate('CampoABuscar',edtBuscar.Text,[loCaseInsensitive, loPartialKey]) then begin
     //ShowMessage('No se encuentran registros');
   end; //fin if not
   if key=VK_Return then dxgbuscar.setfocus;
end;

[ale_metall]

OK, pero donde lo llamo a ese procedimineto? No lo entiendo demasiado, pero lo queiro probar!!!

[[BlueSteel]]

Hola ale_metall

lo que te dice contraveneno en el código que puso es que tienes que poner esto

Código Delphi [-]
if not dxgbuscar.DataSource.dataset.locate('CampoABuscar',edtBuscar.Text,[loCaseInsensitive, loPartialKey]) then begin
     //ShowMessage('No se encuentran registros');
   end; //fin if not
   if key=VK_Return then dxgbuscar.setfocus;

en el evento KeyPress de Edit (para el ejemplo llamado edtBuscar

espero que te sirva...

[ale_metall]

aun no pude probarlo, cuando compilo me da un error en la siguiente linea:

if key=VK_Return then Dbgrid1.setfocus;

el error es de tipos incompatibles,

molesto de nuevo porque desconosco gran parte del codigo y no me doy cuenta del error!!

gracias... y perdon por molestar tanto!!!

[ContraVeneno]

Vamos a ampliar un poco la descripción de mi amigo BlueSteel.

Solo voy a pedir un pequeño favor, hay que leer el código, no solo copiar y pegar.

Si te fijas, en la primer línea dice:

Código Delphi [-]
procedure TfrmBuscar.edtBuscarKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

Esto te indica, que se trata del evento "OnKeyDown" del control llamado "edtBuscar". El cuál tiene el prefijo "edt" indicando que es un TEdit.

Por lo tanto, cada que presiones una letra de este control, se ejecutará la instrucción "locate" que es la que se encarga de buscar en el TDBGrid (que en mi ejemplo, el dbgrid se llama "dxgBuscar")

Ya mas claro no puedo.

P.D. Al DBgrid no le puse dbgBuscar porque no es un DBGrid Normal... es un componente eXterno, pero igual y eso no interesa para este caso.

[ContraVeneno]

Empezado por ale_metall

aun no pude probarlo, cuando compilo me da un error en la siguiente linea:

if key=VK_Return then Dbgrid1.setfocus;

el error es de tipos incompatibles,

¿Seguro que lo pusiste en el evento "OnKeyDown"?

Si lo pusiste en el evento KeyPress, la cosa es distinta y te marcaría ese error...

Lo otro puede ser que no tengas la unidad donde estan definidos los "Virtual-Key Codes" que es donde se encuentra el "VK_Return" pero al ser esta la unidad de windows, no creo que ese sea el problema...

[[BlueSteel]]

Empezado por ContraVeneno

Esto te indica, que se trata del evento "OnKeyDown" del control llamado "edtBuscar".

suata... se me le fue ese detalle.. acostumbrado a poner todo en el onkeypress...

PS: Muy buena explicación...

[ContraVeneno]

¡changos!, no me había fijado que dijiste "OnkEyPress"

Este..ahem... es en el "OnKeyDown"