Сохранение изменений рабочего пространства

В рассматриваемом примере используются компоненты UiWorkspaceObject1 и WorkspaceBox1. В качестве источника данных для WorkspaceBox1 используется UiWorkspaceObject1, объектом которого является рабочее пространство.

Class OBJ17545Form: Form

WorkspaceBox1: WorkspaceBox;

UiWorkspaceObject1: UiWorkspaceObject;

Button1: Button;

Sub OBJ17545FormOnShow(Sender: Object; Args: IEventArgs);

Begin

UiWorkspaceObject1.Instance := (UiWorkspaceObject1.Workspace As IMetabaseObject).Edit;

End Sub OBJ17545FormOnShow;

// Обрабатываем OnClick для кнопки "Сохранить"

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Begin

(UiWorkspaceObject1.Instance As IMetabaseObject).Save;

End Sub Button1OnClick;

End Class OBJ17545Form;

После нажатия на кнопку изменения, сделанные на рабочем пространстве, будут сохранены.

См. также:

Примеры