Описание
Генерируется перед закрытием Окна свойств объекта.
Опеделение
| Visual Basic |
|---|
Public Event ObjectPropertiesDlgBeforeClose( _ ByVal pObject As TDMSObject, _ ByRef bOkBtnPressed As Boolean, _ ByRef bCancel As Boolean _ ) |
Параметры
- pObject
- Объект, окно свойств которого открыто в данный момент.
- bOkBtnPressed
- Определяет, как было закрыто окно. TRUE, если была нажата кнопка Ok, иначе FALSE.
- bCancel
- TRUE отменяет закрытие окна свойств.
Заметки
1. Событие является отменяемым: если параметру bCancel присвоено значение TRUE, закрытие окна свойств не произойдет.
2. Поскольку Окно свойств объекта нельзя закрыть программно, обработчик события будет вызван только при "ручном" закрытии диалога.
3. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт объекта;
- скрипт профиля пользователя;
- общесистемный скрипт.
Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.
4. Схему последовательности генерации событий при редактировании атрибутов объекта в окне свойств см. на рисунке:
Пример
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика может быть размещен в скрипте объекта, 'профиля или общесистемном скрипте. Sub Object_PropertiesDlgBeforeClose(Obj, OkBtnPressed, Cancel) If OkBtnPressed <> False Then 'Пользователь закрывает окно кнопкой Ok. MsgBox("Нажата кнопка Ok", vbInformation, "Закрытие окна свойств") 'Здесь может быть размещена обработка этого события... Else 'Пользователь закрывает окно по Cancel или Close. MsgBox("Редактирование свойств объекта отменено.", vbInformation, "Закрытие окна свойств") 'Здесь может быть размещена обработка этого события... End If End Sub '====================================================================== | |