Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Выключение кнопок в TDBNavigator

01.01.2007
{ Расширение DBNavigator: позволяет разработчику включать и выключать
отдельные кнопки через методы EnableButton и DisableButton }
 
unit
GNav;
 
interface
 
uses
 
 
Windows, Messages, SysUtils, Classes, Graphics, Controls,
 
Forms, Dialogs, ExtCtrls, DBCtrls;
 
type
 
TMyNavigator = class(TDBNavigator)
 
public
    procedure
EnableButton(Btn: TNavigateBtn);
    procedure
DisableButton(Btn: TNavigateBtn);
 
end;
 
procedure
Register;
 
implementation
 
procedure
TMyNavigator.EnableButton(Btn: TNavigateBtn);
begin
 
Buttons[Btn].Enabled := True;
end;
 
procedure
TMyNavigator.DisableButton(Btn: TNavigateBtn);
begin
 
Buttons[Btn].Enabled := False;
end;
 
procedure
Register;
begin
 
RegisterComponents('Samples', [TMyNavigator]);
end;
 
end.

Взято с https://delphiworld.narod.ru