TTChartOnGanttToolDragBar

type TTChartOnGanttToolDragBar = procedure(ASender: TObject; Tool, GanttBar: Integer) of object;

Type Library
TeeChartx

Description
Event called when dragging a gantt bar.