Source position: virtualtrees.pas line 1748
type TVTHeaderMouseEvent = procedure(
Sender: TVTHeader;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;