TcxTabControlTabDragAndDropEvent = procedure(AControl: TcxCustomTabControl; AIndex: Integer; ADestinationIndex: Integer; var AAccept: Boolean) of object;