Source position: controls.pp line 326
type TDragMessage = (
dmDragEnter,
dmDragLeave,
dmDragMove,
dmDragDrop,
dmDragCancel,
dmFindTarget
);