treeview1中如何知道单击的是节点还是数据项？

Question

谢谢！

Answer 1

//HitTests 的参考
  //THitTest = (htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon,
  //htOnIndent, htOnLabel, htOnRight, htOnStateIcon, htToLeft, htToRight);
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);var
  HitTests: THitTests;
begin
  THitTests = set of THitTest;
  HitTests := TreeView1.GetHitTestInfoAt(X, Y);
  if htOnItem in HitTests then  ...
  if htOnLabel in HitTests then ...
end;

Answer 2

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.HasChildren = true
  then ShowMessage('节点')
  else ShowMessage('数据项');
end;

Answer 3

上面那句THitTests = set of THitTest应该在参考里面抱歉