TcxSchedulerBeforeDragEvent = procedure(Sender: TcxCustomScheduler; AEvent: TcxSchedulerControlEvent; X: Integer; Y: Integer; var Allow: Boolean) of object;