{ Расширение 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.