Mouse Oculto en evento "ComboBox.DroppedDown:=True;"

[martini002]

Hola
Acabo de encontrar un error,
muy grave por cierto,
la cuestion es que escribo algo,
esto se agrega a la lista y cuando lo selecciono
no se marca en la casilla esto supongo yo en mi ignorancia
que debe ser por el OnChange.
Probare con tu codigo a ver como me va.
Gracias

Edito:
Me retracto, ahora que lo estoy probando bien
resulta ser que se vuelve loco!
y escribe palabras y letras al principio y al final
hahaha a ver de que otra forma podemos manejar esto.

[[Caral]]

Hola
Pregunto:
Es imperativo el combobox ?
Saludos

[martini002]

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;//Te posicionas en el primer registro
            While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
              begin
                Articulo:= ZQuery1.Fields[0].AsString;
                BoxCodigo.Items.Add(Articulo);
                Next;//Pasas al siguiente registro
              end;
          end;
      end;
end;

[[Caral]]

Hola
A ver:

Código Delphi [-]
procedure TForm1.BoxCodigoChange(Sender: TObject);
Var
  Articulo:String;
begin
            BoxCodigo.Items.Clear;
            ZQuery1.Text:= 'Select Articulo From Inventario Where Articulo Like '+QuotedStr('%'+BoxCodigo.Text+'%')+' Order by Articulo';
            ZQuery1.Open;
            While Not ZQuery1.Eof do //Recorres mientras no termine de leer todos los registros de la consulta
            begin
                Articulo:= ZQuery1.Fields[0].AsString;
                BoxCodigo.Items.Add(Articulo);
                Next;
           end;
           ZQuery1.Close;
end;

Saludos

[martini002]

Hola Caral,
Un segundo, estoy haciendo unas pruebas con algo,
a ver si funciona, gracias por responder
Saludos