双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

dbgrid滚动条的问题

2005-03-11 10:33:49 545 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

liuhelin 墨衍会员 · AI 创作全网分发关注 + 加入社区

使用adotable并设置过虑filter属性
当使用自带的dbgrid或ehlib的dbgrid控件显示数据，
记录多时候垂直滚动条不好用，无论多少条记录滚动条都是那么一点长度
如设置ehlib的grid垂直滚动条的tracking为true则更坏，滚动条拉到中间就下不去了
有人遇到过这个问题么？？谁知道怎么解决。高分相送。

...全文

告别视频广告：OpenWrt下luci-app-adbyby plus/lite的完整配置与避坑手册本文详细介绍了在OpenWrt路由器上配置Adbyby Plus/Lite广告屏蔽工具的完整流程与优化方案。从环境准备、规则文件手动配置到高级性能调优，帮助用户有效拦截视频前贴片广告和弹窗广告，提升家庭网络浏览体验。特别针对官方源停止维护的问题，提供了实用的规则更新解决方案。阅读详情

liuhelin

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

aiirii 2005-03-11

打赏
举报

這樣, 本貼分給還樓主自己, 沒意見吧??

laiqinghe377 2005-03-11

打赏
举报

回楼主在使用delphi自带的dbgrid的时候只要你一旦让dbgrid和adotable或者adoquery连接的时候

在设计模式下假如 aditable里有N条记录而你的dbgrid的大小不够显示N条记录的时候（我是说

dbgrid的高度<（dbgrid的行数-1）*行高的时候） dbgrid就会自动出现滚动条所以我的办法是在设

计模式下不打开adotable

至于 ehlib的dbgrid 我没有用过

liuhelin 2005-03-11

打赏
举报

不好意思还得自己找原因
原因如下
procedure TCustomDBGrid.UpdateScrollBar;
var
SIOld, SINew: TScrollInfo;
begin
if FDatalink.Active and HandleAllocated then
with FDatalink.DataSet do
begin
SIOld.cbSize := sizeof(SIOld);
SIOld.fMask := SIF_ALL;
GetScrollInfo(Self.Handle, SB_VERT, SIOld);
SINew := SIOld;
if IsSequenced then
begin
SINew.nMin := 1;
SINew.nPage := Self.VisibleRowCount;
SINew.nMax := Integer(DWORD(RecordCount) + SINew.nPage - 1);
if State in [dsInactive, dsBrowse, dsEdit] then
SINew.nPos := RecNo; // else keep old pos
end
else
begin
SINew.nMin := 0;
SINew.nPage := 0;
SINew.nMax := 4;
if FDataLink.BOF then SINew.nPos := 0
else if FDataLink.EOF then SINew.nPos := 4
else SINew.nPos := 2;
end;
if (SINew.nMin <> SIOld.nMin) or (SINew.nMax <> SIOld.nMax) or
(SINew.nPage <> SIOld.nPage) or (SINew.nPos <> SIOld.nPos) then
SetScrollInfo(Self.Handle, SB_VERT, SINew, True);
end;
end;

//要判断是否if IsSequenced then
如果flase 则无论数据有多少条记录都是
SINew.nMin := 0;
SINew.nPage := 0;
SINew.nMax := 4;

//而issequenced中
function TCustomADODataSet.IsSequenced: Boolean;
begin
Result := Assigned(RecordSet) and Recordset.Supports(adApproxPosition) and
(CursorLocation <> clUseServer) and not Filtered;
end;

可见not Filtered，只要设置了过虑就肯定要IsSequenced返回false了

还是得靠自己啊，csdn太让我失望了

blackdell 2005-03-11

打赏
举报

DBGrid的滚动条是不太好用，即便是一条记录也有个滚动条。
你那个情况是不是记录太多了，滚动条到了最小长度了？

liuhelin 2005-03-11

打赏
举报

和多少条数据没关系

boyhappyboy 2005-03-11

打赏
举报

楼主有多少条数据？？

✦双11狂欢大促✦

dbgrid滚动条的问题

相关推荐

双11狂欢大促