Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB36BeforeClose.shtml

Глава 36. TDataSet.BeforeClose

Событие BeforeClose

Затрагиваемые объекты TDataSet
Назначение Событие BeforeCIose ссылается на процедуру обработчика, в которой можно указать пользовательскую обработку, выполняющуюся перед закрытием TDataSet.
Объявление Туре TDataSetNotifyEvent = procedure(DataDet: TDataSet) of object;
property BeforeCIose: TDataSetNotifyEvent;
Пример синтаксиса
// Присвоить или отменить присвоение обработчика событий BeforeClose
//в соответствии с флажком

procedure TTDataSetTestForm.BeforeCloseCheckBoxClick(Sender: TObject);
begin
   if BeforeCloseCheckBox.Checked
      then CustomerTable.BeforeCIose := CustomerTableBeforeClose
      else CustomerTable.BeforeClose := Nil;

end;
 
// Процедура обработчика событий BeforeClose

procedure TTDataSetTestForm.CustomerTableBeforeClose(DataSet: TDataSet);
begin
   MessageBeep(MB_ICONQUESTION);
   if MessageDlg('Are you sure you want to close the data set?',
      mtConfirmation,[mbYes,mbNo],0)<>mrYes then begin
// Bosбудить "молчаливое" исключение для предотвращения закрытия
      Abort;
   end;

end;
Описание        Событие BeforeClose в TDataSet включается как раз перед закрытием набора данных либо из-за вмешательства пользователя, либо из-за вызова в коде метода Close из TDataSet. Если в процедуре обработчика события BeforeClose возбудить исключение, можно запретить закрытие TDataSet.

[Свойство Active] [Метод ActiveBuffer] [Событие AfterCancel] [Событие AfterClose] [Событие AfterDelete] [Событие AfterEdit] [Событие AfterInsert] [Событие AfterOpen] [Событие AfterPost] [Метод Append] [Метод AppendRecord] [Метод ApplyUpdates] [Свойство AutoCalcFields] [Свойство BOF] [Событие BeforeCancel] [Событие BeforeClose] [Событие BeforeDelete] [Событие BeforeEdit] [Событие BeforeInsert] [Событие BeforeOpen] [Событие BeforePost] [Свойство Bookmark] [Свойство CachedUpdates] [Свойство CanModify] [Метод Cancel] [Метод CancelUpdates] [Метод CheckBrowseMode] [Метод ClearFields] [Метод Close] [Метод CommitUpdates] [Метод ControlsDisabled] [Метод CursorPosChanged] [Свойство DataSource] [Свойство DefaultFields] [Метод Delete] [Метод DisableControls] [Метод Edit] [Метод EnableControls] [Свойство EOF] [Свойство ExpIndex] [Метод FetchAll] [Метод FieldByName] [Свойство FieldCount] [Свойство FieldDefs] [Свойство FieldValues] [Свойство Fields] [Свойство Filter] [Свойство FilterOptions] [Свойство Filtered] [Метод FindField] [Методы FindFirst] [Методы FindLast] [Методы FindNext] [Методы FindPrior] [Метод First] [Свойство Found] [Метод FreeBookmark] [Метод GetBookmark] [Метод GetCurrentRecord] [Метод GetFieldList] [Метод GetFieldNames] [Метод GotoBookmark] [Свойство Handle] [Метод Insert] [Метод InsertRecord] [Метод IsLinkedTo] [Свойство KeySize] [Метод Last] [Свойство Locale] [Метод Locate] [Метод Lookup] [Свойство Modified] [Метод MoveBy] [Метод Next] [Событие OnCalcFields] [Событие OnDeleteError] [Событие OnEditError] [Событие OnFilterRecord] [Событие OnNewRecord] [Событие OnPostError] [Событие OnServerYield] [Событие OnUpdateError] [Событие OnUpdateRecord] [Метод Open] [Метод Post] [Метод Prior] [Свойство RecNo] [Свойство RecordCount] [Свойство RecordSize] [Метод Refresh] [Метод Resync] [Метод RevertRecord] [Метод SetDetailFields] [Метод SetFields] [Свойство State] [Метод UpdateCursorPos] [Свойство UpdateObject] [Метод UpdateRecord] [Свойство UpdateRecordTypes] [Метод UpdateStatus] [Свойство UpdatesPending]


<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB36BeforeClose.shtml