Estimados,
estoy programando un formulario donde tengo un dbgrid de delphi 6, un edit text
en el edit le puse el codigo que copio mas abajo para que cuando el usuario va escribiendo el codigo del producto valla filtrando lo que me muestra el dbgrid
Código Delphi
[-]
procedure TForm3.EditcodigoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
clavecodigo : string;
Qintro : string ;
begin
clavecodigo := numerodfact ; editcodigo.SetFocus ;
Qintro := 'SELECT * FROM ARTICULOS WHERE Codigo LIKE "' +
editcodigo.Text +'%"';
if editcodigo.Text <> '' then begin
Qproducto.SQL.Clear;
Qproducto.SQL.Add(Qintro) ;
Qproducto.Open ;
end ;
end;
y lo que sucede es que va filtrando pero si preciono la tecla "1" no filtra hasta que preciono cualquier otra.
me explico? es como que necesita de un apretar mas para realizar esto y mi idea era que lo haga con cada tecla que voy apretando.
si a alguien se le ocurre en donde estoy metiendo la pata les voy a agradecer la ayuda.
saludos,
esteban oktubre