| Class TExtendedDBNavigator (unit Mydbnav) |
| Constructors |
constructor Create (AOwner : TComponent);| Functions |
destructor Destroy;
procedure Loaded;
procedure Notification (AComponent : TComponent; AOperation : TOperation);
function GetEnabled : boolean;
procedure MyBtnClick (Sender : TObject);
function ReadButton (Index : integer) : TControl;
function ReadDataSource : TDataSource;
procedure SetEnabled (value : boolean);
procedure UpdateStateOfButtons;
procedure WriteButton (Index : integer; AButton : TControl);
procedure WriteDataSource (ADataSource : TDataSource);| Properties |
property ButtonCancel : TControl
property ButtonDelete : TControl
property ButtonEdit : TControl
property ButtonFirst : TControl
property ButtonInsert : TControl
property ButtonLast : TControl
property ButtonNext : TControl
property ButtonPost : TControl
property ButtonPrior : TControl
property ButtonRefresh : TControl
property DataSource : TDataSource
property Enabled : boolean| Events |
event OnActiveChanged : TNotifyEvent
event OnDataSetChanged : TNotifyEvent
event OnEditingChanged : TNotifyEvent| Variables |
FActiveChanged : TNotifyEvent;
FDataLink : TMyNavDataLink;
FDataSetChanged : TNotifyEvent;
FEditingChanged : TNotifyEvent;
FMethods : array [low (TNavigateBtn)..high (TNavigateBtn)] of TNotifyEvent;
FNewButtons : array [low (TNavigateBtn)..high (TNavigateBtn)] of TControl;| Constructors |
constructor Create (AOwner : TComponent);TExtendedDBNavigator
| Functions |
destructor Destroy;
procedure Loaded;
procedure Notification (AComponent : TComponent; AOperation : TOperation);
function GetEnabled : boolean;
procedure MyBtnClick (Sender : TObject);
function ReadButton (Index : integer) : TControl;
function ReadDataSource : TDataSource;
procedure SetEnabled (value : boolean);
procedure UpdateStateOfButtons;
procedure WriteButton (Index : integer; AButton : TControl);
procedure WriteDataSource (ADataSource : TDataSource);| Properties |
property ButtonCancel : TControl
property ButtonDelete : TControl
property ButtonEdit : TControl
property ButtonFirst : TControl
property ButtonInsert : TControl
property ButtonLast : TControl
property ButtonNext : TControl
property ButtonPost : TControl
property ButtonPrior : TControl
property ButtonRefresh : TControl
property DataSource : TDataSource
property Enabled : boolean| Events |
event OnActiveChanged : TNotifyEvent
event OnDataSetChanged : TNotifyEvent
event OnEditingChanged : TNotifyEvent| Variables |
FActiveChanged : TNotifyEvent;
FDataLink : TMyNavDataLink;
FDataSetChanged : TNotifyEvent;
FEditingChanged : TNotifyEvent;
FMethods : array [low (TNavigateBtn)..high (TNavigateBtn)] of TNotifyEvent;
FNewButtons : array [low (TNavigateBtn)..high (TNavigateBtn)] of TControl;