delphi - 点击测试 TTreview 加/减(折叠/展开)图标 - Delphi

Question

我正在Delphi中使用TTreeview组件，并且我已经自定义了拖放功能。我开始向下拖动鼠标(因为这是自定义行为)，但我不想在用户单击 +/- 或展开和折叠图标时启动拖动事件。

有没有办法知道用户是否单击了节点的标题或展开/折叠图标？

谢谢!

Answer 1

TTreeView 组件包括 GetHitTestInfoAt方法用于此目的。

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitTests: THitTests;
begin
  HitTests := TreeView1.GetHitTestInfoAt(X, Y);
  if htOnButton in HitTests then
    //do something
  else if htOnLabel in HitTests then
    //do something else
  else if ......

可能的完整列表 members THitTests的设置为:

• ht以上
• ht如下
• htNowhere
• htOnItem
• htOnButton
• htOnIcon
• htOnIndent
• htOnLabel
• htOnRight
• htOnStateIcon
• htToLeft
• htToRight