代码之家 › 专栏 › 技术社区 › Soon Santos

delphi中的TDBLookupComboBox滚动不正确

delphi

Soon Santos · 技术社区 · 7 年前

我的 TDBLookupComboBox

dblkComboBox 。当我点击右下拉时打开它,中间的滚动条开始。那么,

我无法使用鼠标滚动属性浏览项目。
滚动条卡在中间,不管是在第一个项目还是在150个项目中,滚动条总是在中间。

我用下面的代码在组合框中添加信息(尽管我不认为这可能会导致问题)

with qryUF do
begin
  Connection := dmDados.FDConnection;
  Active := False;
  SQL.Clear;
  Open('SELECT * FROM estado');
end;

dblkcbbUF.ListSource := dsUF;
dblkcbbUF.ListField := C_UF;
dblkcbbUF.KeyField := C_UF;
dblkcbbUF.KeyValue := qryUF.FieldByName(C_UF).AsVariant;

我的TDBLookupComboBox的一些属性

有没有什么方法可以让它更平滑的滚动和滚动条显示项目的真实位置?