Навигация по набору данных
Самой критичной к возможной потере данных вследствие ошибки является операция удаления записи, поэтому при помощи свойства confirmDelete можно включить механизм контроля удаления. При каждом удалении записи нужно будет дать подтверждение выполняемой операции.
Нажатие любой кнопки можно эмулировать программно при помощи метода BtnClick.
В случае необходимости выполнения дополнительных действий при щелчке на любой кнопке можно воспользоваться обработчиками событий BeforeAction и Onciick, в которых параметр Button определяет нажатую кнопку. Свойства и методы компонента TDBNavigator представлены в табл. 15.6.
Таблица 15.6. Свойства и методы компонента TDBNavigator.
| Объявление | Тип | Описание |
|---|---|---|
| Свойства | ||
| property ConfirmDelete: Boolean; | Pb | Включает или отключает подтверждение удаления записи |
| property Hints: TStrings; | Pb | Содержит список подсказок для каждой кнопки |
| property Flat: Boolean; | Pb | Определяет внешний вид кнопок компонента |
| type TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nblnsert, nbDeiete, nbEdit, nbPost, nbCancel, nbRefresh); TButtonSet = set of TNavigateBtn; property VisibleButtons: TButtonSet; |
Pb | Список видимых кнопок |
| Методы | ||
| procedure BtnClick (Index: TNavigateBtn); | Pu | Эмулирует щелчок на кнопке index |
| procedure SetBounds (ALeft, ATop, AWidth, AHeight: Integer); | Pu | Задает положение (параметры ALeft, АТор) и размер компонента (параметры AWidth, AHeight) |
| Методы-обработчики событий | ||
| ENavClick = procedure (Sender: TObject; Button: TNavigateBtn) of object; Iproperty BeforeAction: ENavClick; | Pb | Выполняется при щелчке на кнопке Button перед выполнением операции, связанной с кнопкой |
| ENavClick = procedure (Sender: TObject; Button: TNavigateBtn) of object; property OnClick: ENavClick; |
Pb | Выполняется при щелчке на кнопке Button после выполнения операции, связанной с кнопкой |