Pues si, porque quisiera que en ese mismo
cuadro pudiera escribirse el codigo, nombre o parte del nombre
de un articulo cualquiera en el inventario,
mira lo que se me ocurrio, aunque no funciona como quisiera
por lo menos es estable, me gustaria que cuando escribiera
desplegara la lista, y pudieras seguir escribiendo(alli esta el detalle)
mira, cambie el OnChange por OnDropDown
Código Delphi
[-]procedure TForm1.BoxCodigoDropDown(Sender: TObject);
Var
Articulo:String;
begin
with ZQuery1 do
begin
Close;
with SQL do
begin
Clear;
Add('Select Articulo From Inventario Where Articulo Like '+QuotedStr('%'+BoxCodigo.Text+'%')+' Order by Articulo');
Open;
BoxCodigo.Items.Clear;
First; While Not(ZQuery1.Eof) do begin
Articulo:= ZQuery1.Fields[0].AsString;
BoxCodigo.Items.Add(Articulo);
Next; end;
end;
end;
end;