IFormControl.StartupObject

Синтаксис Fore

StartupObject: IUnknownAgg;

Синтаксис Fore.NET

StartupObject: Prognoz.Platform.Interop.ForeSystem.IUnknownAgg;

Описание

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

Комментарии

IUnknownAgg является абстрактным интерфейсом и может быть приведен к IMetabaseObjectDescriptor.

Пример Fore

Для использования примера на форме предполагается наличие компонента Button с идентификатором «Button1», а также наличие данной формы в репозитории и ярлыка к ней.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    MBD: IMetabaseObjectDescriptor;
Begin
    //Получаем данные формы 
    MBD := Self.StartupObject As IMetabaseObjectDescriptor;
    //Выводим сообщение в консоль
    Debug.Write(MBD.IsShortcut.ToString);
End Sub Button1OnClick;

В результате выполнения примера после нажатия кнопки в консоли будет выведен признак того, была ли запущена форма через ярлык.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Metabase;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MBD: IMetabaseObjectDescriptor;
    Form: IFormControl;
Begin
    //Получаем данные формы 
    MBD := Form.StartupObject As IMetabaseObjectDescriptor;
    //Выводим сообщение в консоль
    System.Diagnostics.Debug.Write(MBD.IsShortcut.ToString());
End Sub;

См. также:

IFormControl