Sub OnCloseQuery(Sender: Object; Args: ICloseQueryEventArgs);
Begin
//набор операторов;
End Sub OnCloseQuery;
Sender - параметр, возвращающий компонент, сгенерировавший событие.
Args - параметр, позволяющий определить параметры события.
Событие OnCloseQuery наступает в тот момент, когда форма получает команду на закрытие.
Используя свойство CloseReason аргумента события можно определить причину закрытия формы. С помощью свойства Allowed можно разрешить, либо запретить закрытие формы.
См. также: