Sub OnEditObject(Sender: Object; Args: IModelBoxEditObjectEventArgs);
Begin
//набор операторов;
End Sub OnEditObject;
Sender. Параметр, возвращающий компонент, сгенерировавший событие.
Args. Ппараметр, возвращающий редактируемую модель.
Событие OnEditObject наступает при открытии модели для редактирования.
Для выполнения примера предполагается наличие формы, расположенных на ней двух компонентов ModelBox и двух компонентов UiModel. Компонент с идентификатором «UiModel1» является источником данных для компонента с идентификатором «ModelBox1», а «UiModel2» - для «ModelBox2». «UiModel1» обеспечивает доступ к модели, являющейся системой нелинейных уравнений.
Пример является обработчиком события OnEditObject для компонента «ModelBox1» и будет выполняться при нажатии кнопки «Редактировать» или двойному щелчку мышью по уравнению в панели «Параметры» данного компонента.
Sub ModelBox1OnEditObject(Sender: Object; Args: IModelBoxEditObjectEventArgs);
Begin
UiModel2.Object := Args.Object;
UiModel2.Active := True;
End Sub ModelBox1OnEditObject;
После выполнения примера редактируемая модель будет открыта в компоненте «ModelBox2».
См. также: