//DBNavigator'da disable edilebilen düğme olması
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('Plus2', [TMyNavigator]);
end;
end.