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

Question

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

Answer 1

为 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;