IMetabaseCustomClass.IsContainer

Syntax

IsContainer: Boolean;

Description

The IsContainer property determines the permission to add child objects for a custom class.

Comments

Available values:

Example

To execute the example, add a link to the Metabase system assembly.

Sub UserProc;
Var
    Mb: IMetabase;
    ClassNew: IMetabaseCustomClass;
    CustomClass: IMetabaseCustomExtender;
    Type: MetabaseSpecialObject;

Begin
    Mb := Metabaseclass.Active;
    Type := MetabaseSpecialObject.CustomExtender;
    CustomClass := Mb.SpecialObject(Type).Edit 
As IMetabaseCustomExtender;
    ClassNew := CustomClass.Classes.Add;
    ClassNew.Name := 
"Container";
    ClassNew.
Description := "Container class";
    ClassNew.Data := 
"Custom text of arbitrary format";
    ClassNew.IsContainer := 
True;
    (CustomClass 
As IMetabaseObject).Save;
End Sub UserProc;

After executing the example, the Container custom class is created with the permission to add child objects.

See also:

IMetabaseCustomClass