delphi - 当用户单击 VirtualTreeView 控件中的标题列复选框时如何获得通知？

Question

是否有事件通知 VirtualTreeView 标题列复选框单击？它是这张图片上突出显示的复选框：

Answer 1

为事件编写一个处理程序OnHeaderClick并检查参数的HitPosition属性是否HitInfo包含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;