Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];
Вниз
Какие действия происходят при нажатии кнопок 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c