Команда CreateCustomClass

Назначение

Вызов диалога создания нового пользовательского класса.

Параметры использования

Отсутствуют

Особенности применения

Если создание нового пользовательского класса выполнено успешно, то метод Execute вернет ключ нового класса, иначе значение «-1».

Пример

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

Sub UserProc;
Var
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    Result: Integer;
Begin
    Target := WinApplication.Instance.GetPluginTarget("Std");
    Context := Target.CreateExecutionContext;
    Context.Data := MetabaseClass.Active;
    Result := Target.Execute("CreateCustomClass", Context);
    Debug.WriteLine(Result);
End Sub UserProc;

После выполнения примера будет открыт диалог создания пользовательского класса. Задайте параметры класса и нажмите кнопку «ОК». В консоль будет выведен ключ созданного класса или значение «-1», если класс не создан.

См. также:

IUiCommandTarget.Execute