The VCL own database navigation TDBNavigator controls short and hard working is practical... But... Have existed since the Delphi and c + + Builder with operational not harmonious...

When using a mouse or keyboard operation form controls... When to move to the first (first line) when... First with the Prior navigation button should not be in the Enable according to situation... And move to the end of the pen, the last line... Next to the Last navigation buttons should not be in the Enable according to situation... This form or in other database navigation controls are not seen:



In fact, the logic of Bof and Eof position on every other line rather than a sash... So the Vcl. DBCtrls. TDBNavigator the original code of pas... Bof and Eof is treated as a physical location to identify is not correct... Must be revised to conform to the actual operation:

 {TODO oxuware - c navigation button column: 001 correction pen at the end of the first button logic} 
//UpEnable:=Enabled and FDataLink. Active and not FDataLink. DataSet. BOF; 
UpEnable:=Enabled and FDataLink. Active and (FDataLink. DataSet. RecNo & lt;> 1); 

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

Revised navigation mark position right:

CodePudding user response:

Support 1/f, modify the code,
I don't have to TDBNavigator at all, but to write your own one,

CodePudding user response:

reference 1st floor lyhoo163 response:

support 1/f, modify the code,
I don't have to TDBNavigator at all, but to write your own one,

Hey hey ~ 1 floor?
Have the ready-made available why bother li ~