Source position: virtualtrees.pas line 1749
type TVTHeaderMouseMoveEvent = procedure(
Sender: TVTHeader;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;