![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TDBNavigator как обработать событие кнопки
roman_ln © (2007-04-20 18:24:00)например кнопки nbNext
MsGuns (2007-04-21 20:15:00) [1]Нафигатор был написан Борландом и встромлен в делфу по спецзаказу ЦРУ- в целях зомбирования программистов, работающих в ВПК
mike-d (2007-04-21 07:23:00) [2]> Германн © (21.04.07 01:33) [5]
> Кстати у TDBNavigator не предусмотрено никаких обработчиков кликов на конкретную кнопку.
Предусмотрено :)
TDBNavigator.BeforeAction
Occurs when a button on the database navigator is clicked, before the action is executed.
type
ENavClick = procedure (Sender: TObject; Button: TNavigateBtn) of object;
property BeforeAction: ENavClick;
Description
Write a BeforeAction event handler to take specific action before the default response when a user clicks a button in the database navigator.
The Button parameter indicates which button was clicked.
Пример:
// При нажатии на кнопку "Go to the previous record" ничего не произойдет!
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button = nbPrior then
Abort;
end;
Германн (2007-04-21 01:33:00) [3]2 Ega23 © (20.04.07 18:39) [3]
> Ты бы, чудо, сначало в мою анкету заглянуло... :)
Наверно чудо прочитало ник как ЯГА23 :-)
2 roman_ln © (20.04.07 18:24)
Кстати у TDBNavigator не предусмотрено никаких обработчиков кликов на конкретную кнопку. Все его кнопки вызывают те или иные методы DataSet'а. Посему все обработчики только у DataSet'а.
roman_ln (2007-04-20 18:47:00) [4]извени, бывает...
Ega23 (2007-04-20 18:39:00) [5]
> roman_ln © (20.04.07 18:36) [2]
> спасибо очень помогла :)
Ты бы, чудо, сначало в мою анкету заглянуло... :)
roman_ln (2007-04-20 18:36:00) [6]спасибо очень помогла :)
Ega23 (2007-04-20 18:29:00) [7]очевидно, написать обработчик.