Sub OnObjectMoving(Sender: Object; Agrs: ITabObjectMovingEventArgs);
Begin
//набор операторов
End Sub OnObjectMoving;
Sender. Параметр, возвращающий компонент, сгенерировавший событие;
Args. Параметр, позволяющий определить параметры события.
Событие OnObjectMoving наступает во время перемещения объекта.
Возникает перед событием TabSheetBox.OnBeforeObjectChange.
Для выполнения примера предполагается наличие формы, содержащей компоненты TabSheetBox с наименованием TabSheetBox1 и UiReport с наименованием UiReport1, являющийся источником данных для TabSheettBox1. В свойстве OperationMode компонента UiReport1 установите значение Edit, в свойстве Active - True. UiReport1 должен содержать загруженный регламентный отчет с фигурами на активном листе.
Указанная процедура должна быть назначена обработчиком события OnObjectMoving для компонента TabSheetBox1.
Добавьте ссылку на системную сборку Drawing для Fore.
Sub TabSheetBox1OnObjectMoving(Sender: object; Args: ITabObjectMovingEventArgs);
Begin
Debug.WriteLine("Объект: " + Args.Object.Id +
" был перемещен с координатами: " + Args.Rect.Left.ToString);
End Sub TabSheetBox1OnObjectMoving;
End Class TabSheetBox_OnObjectMovingForm;
В результате выполнения примера при перемещении фигуры в окно консоли будет выведено сообщение, содержащее идентификатор объекта и координата слева.
См. также: