IsShortcut: Boolean;
The IsShortcut property returns whether this object is a shortcut to other repository object.
The property returns True if this object is a shortcut for another repository object.
NOTE. If the object is a shortcut to an object from another repository, this property returns the False value, use the IMetabaseObjectDescriptor.IsLink property for checking.
Executing the example requires that the repository contains an object with the ObjTest identifier.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
Begin
MB := MetabaseClass.Active;
MDesc := MB.ItemById("ObjTest");
If MDesc.IsShortcut Then
Debug.WriteLine(MDesc.Shortcut.Id);
End If;
End Sub UserProc;
After executing the example, if the specified object is a shortcut, the development environment console displays identifier of the object, to which this shortcut refers.
See also: