Source position: msedock.pas line 114
type checkdockeventty = procedure(
const sender: tobject;
const apos: pointty;
const dockdragobject: tdockdragobject;
var accept: Boolean
) of object;