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

[sbxtzhl]

谢谢！

[shadowfish]

根据treeview.selected.caption判断

[lw549]

判断是否具有child

[DWGZ]

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

[lean77]

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

[DWGZ]

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