IWebFormComponent.StartupObject

Синтаксис

StartupObject: IMetabaseObjectDescriptor;

Описание

Свойство StartupObject возвращает описание текущего запущенного объекта.

Комментарии

Свойство вернёт описание веб-формы как объекта репозитория, если была запущена веб-форма, или описание ярлыка, если веб-форма была запущена через связанный с ней ярлык.

Пример

Для выполнения примера в репозитории предполагается наличие веб-формы и расположенной на ней кнопки.

Добавьте ссылки на системные сборки: Metabase, WebForms.

Sub Button1OnClick;
Var
    MDesc: IMetabaseObjectDescriptor;
Begin
    MDesc := Self.StartupObject;
    If MDesc.IsShortcut Then
        Self.Text := "Веб-форма запущена через ярлык. ID ярлыка: " + MDesc.Id + ". ID веб-формы: " + MDesc.Shortcut.Id;
    Else
        Self.Text := "Запущена веб-форма. ID: " + MDesc.Id;
    End If;
End Sub Button1OnClick;

При выполнении примера в заголовок веб-формы будет выведена информация о текущем запущенном объекте.

См. также:

IWebFormComponent