Обрабатываем нажатие кнопок в DBNavigator
Компонент DBNavigator предоставляет пользователю возможность перемещения по записям, редактирования, а также сохранения набора данных. Навигатор содержит кнопки для перехода на первую, последнюю, предыдущую и следующую записи, вставки, удаления и редактирования записи, отмены и сохранения изменений, а также обновления данных.
Компонент практически полностью автоматизирован – единственное, что необходимо для его использования это связать его соответствующим DataSource.
В обработчике событий не предусмотрена возможность обрабатывать нажатие каждой кнопки по отдельности. Для этого можно воспользоваться довольно простым кодом. В OnClick компонента DBNavigator запишем:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); var ButtonName: string; begin case Button of nbFirst : ButtonName:= 'nbFirst'; nbPrior : ButtonName:= 'nbPrior'; nbNext : ButtonName:= 'nbNext'; nbLast : ButtonName:= 'nbLast'; nbInsert : ButtonName:= 'nbInsert'; nbDelete : ButtonName:= 'nbDelete'; nbEdit : ButtonName:= 'nbEdit'; nbPost : ButtonName:= 'nbPost'; nbCancel : ButtonName:= 'nbCancel'; nbRefresh: ButtonName:= 'nbRefresh'; end; MessageDlg('Нажата кнопка' + ButtonName, mtInformation, [mbOK], 0); end; |