Скачать: CL | DM;

Какие действия происходят при нажатии кнопок DBNavigator-а   Найти похожие ветки 

← →
Igorntk   (2009-02-16 10:08) [0]

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

---

← →
Сергей М. ©   (2009-02-16 10:16) [1]

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

---

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

> Igorntk   (16.02.09 10:08)

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

---

← →
ЮЮ ©   (2009-02-16 11:03) [3]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c