Delphi 中 DBNavigator1 的问题

Question

谢谢biu 的赐教，能否详细些

Answer 1

可以判断DATASET的state,即可判断DBNavigator1 的几个按钮的状态。

Answer 2

var
  I: Integer;
begin
  with DBNavigator1 do for I := 0 to ComponentCount - 1 do
    if Components[I] is TNavButton then begin
      case TNavButton(Components[I]).Index of
        nbFirst: if TNavButton(Components[I]).Enabled then { 首笔 };
        nbPrior: if TNavButton(Components[I]).Enabled then { 上笔 };
        nbNext: if TNavButton(Components[I]).Enabled then { 下笔 };
        nbLast: if TNavButton(Components[I]).Enabled then { 末笔 };
        nbInsert: if TNavButton(Components[I]).Enabled then { 新增 };
        nbDelete: if TNavButton(Components[I]).Enabled then { 删除 };
        nbEdit: if TNavButton(Components[I]).Enabled then { 修改 };
        nbPost: if TNavButton(Components[I]).Enabled then { 存档 };
        nbCancel: if TNavButton(Components[I]).Enabled then { 取消 };
        nbRefresh: if TNavButton(Components[I]).Enabled then { 刷新 };
      end;
    end;
end;