if TreeView.Selected.HasChildren then ShowMessage('不是末端') else ShowMessage('是末端');
procedure TForm1.tv1Click(Sender: TObject); begin if tv1.Selected <> nil then begin if tv1.Selected.HasChildren then ShowMessage('不是') else ShowMessage('是'); end; end;
else ShowMessage('是末端');
begin
if tv1.Selected <> nil then
begin
if tv1.Selected.HasChildren then
ShowMessage('不是')
else
ShowMessage('是');
end;
end;