分享 : 修正 TDBNavigator 控件導航標的錯位

星際訪客 2014-12-14 09:12:14
VCL 自帶的數據庫導航 TDBNavigator 控件短小精幹算實用...但是...打從 Delphi 與 C++Builder 問世以來就存在著操作上的不協調......

在使用鼠標或鍵盤操作表格控件時...當移動位置至首筆(第一行)時...First 與 Prior 導航按鈕不應該處在 Enable 可按的情形...而移動位置至末筆(最後一行)時...Next 與 Last 導航按鈕也不應該處在 Enable 可按的情形...這在別的數據庫之表格或導覽控件並未見過 :



實際上 Bof 與 Eof 的邏輯位置在隔線上而非框格上...所以 Vcl.DBCtrls.pas 之 TDBNavigator 原代碼...將 Bof 與 Eof 當作物理位置來識別並不正確...必須做修正以符合實際上的操作 :
  { TODO -oxuware -c導航按鈕列 : 001 校正首筆末筆按鈕邏輯 }
//UpEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.BOF;
UpEnable := Enabled and FDataLink.Active and (FDataLink.DataSet.RecNo <> 1);

//DnEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.EOF;
DnEnable := Enabled and FDataLink.Active and
(FDataLink.DataSet.RecNo <> FDataLink.DataSet.RecordCount);


經修正後導航標的位置正確 :

...全文
130 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
星際訪客 2014-12-15
  • 打赏
  • 举报
回复
引用 1 楼 lyhoo163 的回复:
支持1楼修改代码。 本人压根不用TDBNavigator,而是自己编写一个。
嘿嘿~ 1樓? 有現成的可用何必多此一舉哩~
lyhoo163 2014-12-14
  • 打赏
  • 举报
回复
支持1楼修改代码。 本人压根不用TDBNavigator,而是自己编写一个。

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧