Class TDemoIteratingControls (unit GPDBNav97Demo)

Inherits from

TForm

Paul Rice 6/6/1998 Demo iteration through a DBNavigator Controls property in order to get the enabled/disabled state of its buttons. In this case, menu items are synchronized with the buttons. Use TNavButton vs. TGPNavButton97 for a standard DBNavigator.

Constructors



Functions

procedure DataSource1DataChange(Sender: TObject; Field: TField);

with GPDBNavigator971

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SyncMenuWithDBNav;


Properties

Events

Variables

Cancel1 : TMenuItem;


DataSource1 : TDataSource;


Delete1 : TMenuItem;


Edit1 : TMenuItem;


First1 : TMenuItem;


GPDBNavigator971 : TGPDBNavigator97;


Insert1 : TMenuItem;


Last1 : TMenuItem;


MainMenu1 : TMainMenu;


Next1 : TMenuItem;


Post1 : TMenuItem;


Prior1 : TMenuItem;


Refresh1 : TMenuItem;


Sync1 : TMenuItem;


Table1 : TTable;



Constructors


Functions


procedure DataSource1DataChange(Sender: TObject; Field: TField);

with GPDBNavigator971


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SyncMenuWithDBNav;


Properties


Events


Variables


Cancel1 : TMenuItem;


DataSource1 : TDataSource;


Delete1 : TMenuItem;


Edit1 : TMenuItem;


First1 : TMenuItem;


GPDBNavigator971 : TGPDBNavigator97;


Insert1 : TMenuItem;


Last1 : TMenuItem;


MainMenu1 : TMainMenu;


Next1 : TMenuItem;


Post1 : TMenuItem;


Prior1 : TMenuItem;


Refresh1 : TMenuItem;


Sync1 : TMenuItem;


Table1 : TTable;