|
BCB |
|||||||||
|
|||||||||
OnDragOverСобытие относится ко времени, в течение которого пользователь перемещает перетаскиваемый объект над компонентомО п и с а н и е. Событие OnDragOver начинается в момент, когда перетаскиваемый объект пересек границу данного компонента и оказался внутри его контура. Заканчивается событие, когда объект, покидая компонент, пересек его границу. Обработчик события OnDragOver используется для того, чтобы дать сигнал о готовности компонента принять перетаскиваемый объект в случае, если пользователь отпустит его над данным компонентом. Если компонент готов принять объект, в обработчике надо задать значение параметра Accept, равное True. Впрочем, это значение по умолчанию равно True, так что его можно не задавать. Вообще в предельном случае обработчик может быть пустым, что будет означать готовность компонента принять любой объект. Но даже пустой обработчик нужен, так как иначе сообщения о приеме компонента приложение не получит. Во время перетаскивания над компонентом объекта, который может быть принят, форма курсора мыши может изменяться, сигнализируя пользователю о готовности компонента принять объект. Чтобы это было так, надо до момента события OnDragOver (а обычно - во время проектирования) задать соответствующее значение свойства компонента DragCursor. Параметр Source определяет перетаскиваемый объект, параметр Sender - сам компонент, параметры X и Y - координаты точки эрана в пикселях. Параметр State типа TDragState определяет состояние перетаскиваемого объекта по отношению к другим объектам. Возможны следующие состояния: dsDragEnter Курсор мыши входит в пределы компонента. DsDragMove Курсор мыши перемещается в пределах компонента. DsDragLeave Курсор мыши выходит за пределы компонента. |