Mega Code Archive

 

Categories / Delphi / VCL

 

Dbnavigator[component]

//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.