当用户单击 VirtualTreeView 控件中的 header 列复选框时如何得到通知?

How to get notified when the user clicks the header column check box in VirtualTreeView control?

是否有通知有关 VirtualTreeView header 列复选框单击的事件?就是这张图片上突出显示的复选框:

OnHeaderClick事件编写处理程序,并检查HitInfo参数的HitPosition属性是否包含hhiOnCheckbox标志。例如:

procedure TForm1.VirtualTreeHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
begin
  if hhiOnCheckbox in HitInfo.HitPosition then
  begin
    if Sender.Columns[HitInfo.Column].CheckState = csCheckedNormal then
      ShowMessage('Checked!')
    else
      ShowMessage('Unchecked!')
  end;
end;