Source position: msegrids.pas line 845
type celldrageventty = procedure(
const cellinfo: cellinfoty;
var draginfo: draginfoty;
var dragobject: tcelldragobject;
var accept: Boolean;
var processed: Boolean
) of object;