TTChartOnGanttToolDragBar
type TTChartOnGanttToolDragBar = procedure(ASender: TObject; Tool, GanttBar: Integer) of object; Type Library TeeChartx Description Event called when dragging a gantt bar.