如何检测鼠标单击TListView组标题？

我正在使用Delphi 10.1和VCL。如何检测单击或双击“组”标题中的TListView？不在列标题上。

子类化ListView来捕获与单击相关的消息（WM_LBUTTON(DOWN|UP)，WM_LBUTTONDBLCLK等），然后将LVM_HITTEST消息发送到ListView，指定单击的客户端坐标。

根据文档，必须将消息的设置wParam为-1以获取组信息，这意味着必须直接LVM_HITTEST调用来发送消息SendMessage()，而不能使用ListView_HitTest()设置wParam为0 的函数。

单击“组”标题时，填充LVHITTESTINFO的LVHT_EX_GROUP_HEADER标记将启用，并且该iItem字段将是组索引。