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

[星際訪客]

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);

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

[lyhoo163]

支持1楼修改代码。 本人压根不用TDBNavigator，而是自己编写一个。

[星際訪客]

引用 1 楼 lyhoo163 的回复:

支持1楼修改代码。 本人压根不用TDBNavigator，而是自己编写一个。

嘿嘿~ 1樓? 有現成的可用何必多此一舉哩~