check box in TListView header column - How to prevent it from stealing focus?

Question

This is related to the question How to show a check box in TListView header column?.

I want to use the code from this answer by @Sertac Akyuz. (I need this