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