MoveTo(FromIndex: Integer; ToIndex: Integer);
FromIndex. Индекс позиции элемента, который необходимо переместить;
ToIndex. Индекс позиции, в которую необходимо переместить элемент.
Метод MoveTo осуществляет перемещение элементов в дереве сценариев.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
ModelSpace: IMsModelSpace;
Tree: IMsScenarioTreeEntries;
Folder: IMsScenarioTreeFolder;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("KONT_MODEL").Edit;
ModelSpace := MObj As IMsModelSpace;
Tree := ModelSpace.ScenarioTree;
Folder := Tree.AddFolder("Папка №1");
Tree.MoveTo(Tree.IndexOf(Folder), 0);
MObj.Save;
End Sub Main;
После выполнения примера в дереве сценариев контейнера моделирования будет создана новая папка. Данная папка будет перемещена на первую позицию в списке.
См. также: