| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TDBNavigator как обработать событие кнопки

roman_ln ©   (2007-04-20 18:23:00) 

например nbNext

---

roman_ln   (2007-04-20 18:44:00) [1]

спасиб

---

icWasya   (2007-04-20 18:29:00) [2]

например так

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
 Button: TNavigateBtn);
begin
 Case Button of
   nbNext : begin
     if MessageDlg('Переходим к следующей строке ?',
        mtConfirmation, [mbYes, mbNo], 0) <>  mrYes then Abort;
   end;
 end;
end;

---

Наверх