· События, предназначенные для поддержки перетаскивания.
Type
TStartDragEvent = procedure (Sender:TObject;
var DragObject:TdragObject) of object;
Property OnStartDrag:TStartDragEvent; - событие возникает, когда начинается перетаскивание компонента.
Параметр DragObject содержит ссылку на объект, используемый для формирования изображения элемента управления во время перетаскивания. По умолчанию равняется nil, что означает, переноситься будет сам компонент.
Type
TDragOverEvent=procedure (Sender, Source: TObject;
X, Y:Integer; State:TdragState;var Accept:Boolean) of object;
Property OnDragOver: TdragOverEvent; событие возникает в процессе перетаскивания, когда перетаскиваемый компонент Source находится над элементом Sender
X, Y – глобальные координаты курсора мыши.
State определяет состояние перетаскиваемого компонента по отношению к другим компонентам там возможны следующие состояния:
dsDragEnter – курсор входит в пределы компонента;
dsDragMove – курсор перемещается в пределах компонента;
dsDragLeave – курсор выходит за пределы компонента.
Type
TDragDropEvent=procedure (Sender,Source:TObject;
X,Y:Integer) of object;
Property OnDragDropEvent; - событие возникает в момент, когда Source опускается на элемент Sender.
Type
TEndDragEvent = procedure (Sender,Target:TObject;
X,Y:integer) of object;
Property OnEndDrag:TendDragEvent; - событие возникает, когда завершается перетаскивание элемента управления Sender над элементом Target
