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

[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