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

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

Какие действия происходят при нажатии кнопок DBNavigator-а [D5, XP]

Igorntk ©   (2009-02-16 10:08:00) 

К примеру нажимаю кнопку NBPost. Какие действия (в виде кода) происходят при этом? Спасибо!

---

ЮЮ   (2009-02-16 11:03:00) [1]

Или исходники вдруг закрыли?

procedure TDBNavigator.BtnClick(Index: TNavigateBtn);
begin
 if (DataSource <> nil) and (DataSource.State <> dsInactive) then
 begin
   if not (csDesigning in ComponentState) and Assigned(FBeforeAction) then
     FBeforeAction(Self, Index);
   with DataSource.DataSet do
   begin
     case Index of
       nbPrior: Prior;
       nbNext: Next;
       nbFirst: First;
       nbLast: Last;
       nbInsert: Insert;
       nbEdit: Edit;
       nbCancel: Cancel;
       nbPost: Post;
       nbRefresh: Refresh;
       nbDelete:
         if not FConfirmDelete or
           (MessageDlg(SDeleteRecordQuestion, mtConfirmation,
           mbOKCancel, 0) <> idCancel) then Delete;
     end;
   end;
 end;
 if not (csDesigning in ComponentState) and Assigned(FOnNavClick) then
   FOnNavClick(Self, Index);
end;

---

Плохиш   (2009-02-16 10:47:00) [2]

> Igorntk   (16.02.09 10:08)

Что тоже справка на непонятном языке написана?

---

Сергей М.   (2009-02-16 10:16:00) [3]

Вызывается метод TDataSet.Post

---

Наверх