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

Previous  Top  Next

    
 

 

 

Code:

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

 

 

©Drkb::03083

       

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