[ecfisa]

Hola.

Puedes obtener un comportamiento similar al que buscas con un TDBLookupListBox agregando estas líneas:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  DBLookupListBox1.Height := DBLookupcomboBox1.Font.Height;
  ShowScrollBar(DBLookupListBox1.Handle, SB_VERT, False);
end;

...

procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
  ShowScrollBar(DBLookupListBox1.Handle, SB_VERT, False);
end;

Saludos