desahabilitar el scrollbar en un combobox

[ecfisa]

Que extraño...

Con este código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  ComboBox1.Clear;
  for i := 1 to 100 do
    ComboBox1.Items.Add('Item '+IntToStr(i));
  ComboBox1.AutoDropDown  := True;
  ComboBox1.DropDownCount := 30;
end;

Obtengo este resultado:



Saludos

[[kurono]]

tengo el siguiente codigo en el evento OnPresskey del combobox

Código Delphi [-]
var
  S1:string;
begin
  s1:=ComboBox1.Text;
  if Length(S1) >0 then
  begin
    Frm_DM.CS_BA.Close;
    Frm_DM.CS_BA.SQL.Clear;
    Frm_DM.CS_BA.SQL.Add('SELECT Orden,Articulos,Descripcion,Unidad,Cantidad,FechaInicio FROM ARTICULOS');
    Frm_DM.CS_BA.Sql.Add('WHERE ARTICULOS Like'+QuotedStr(combobox1.Text+'%'));
    Frm_DM.CS_BA.Open;

    while not Frm_DM.CS_BA.Eof do  //mientras haya registros
    begin
      ComboBox1.Items.Add(Frm_DM.CS_BA.FieldbyName('Articulos').AsString);  // agregar valor del campo al combo
      Frm_DM.CS_BA.Next;  // siguiente registro
    end;
      Frm_DM.CS_BA.First;
   end
   else
    if Length(S1)=0 then
       ComboBox1.Items.Clear;
       ComboBox1.SetFocus;

no se si este sera el problema

[ecfisa]

Hola kurono.

A ver si interpreté lo que buscas hacer...

Probá este código en el evento OnChange del TComboBox:

Código Delphi [-]
...
begin
  with Frm_DM.CS_BA do
  begin
    if ComboBox1.Text > '' then
    begin
      Close;
      SQL.Clear;
      SQl.Add('SELECT ORDEN, ARTICULOS,DESCRIPCION, UNIDAD, CANTIDAD, FECHAINICIO');
      SQL.Add('FROM ARTICULOS WHERE ARTICULOS LIKE :PVALOR');
      ParamByName('PVALOR').AsString := ComboBox1.Text+'%';
      Open;
      while not eof do
      begin
        ComboBox1.Items.Add(FieldByName('NAME').AsString);
        Next;
      end;
      ComboBox1.AutoDropDown := True;
      ComboBox1.DroppedDown  := True;
    end
    else
      ComboBox1.Items.Clear;
  end;
end;

Saludos.

[[kurono]]

e probado el codigo y funciona perfectamente como lo queria aunque le hise alguna modificacion
gracias ecfisa

[[kurono]]

disculpa ecfisa me surgieron dos problema que no me habia percatado antes y es que en el desplegue cuando seleciono un item no me trae el item selecionado me trae uno alazar y el otro problema es que no me esta filtrando la busqueda me trae todos los registro de la tabla que estaria pasando

[[kurono]]

me respondo yo mismo ya solucione mi problema y me funciona muy bien