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