Source position: extctrls.pp line 1379
type TBandDragEvent = procedure(
Sender: TObject;
Control: TControl;
var Drag: Boolean
) of object;