NodeIsGrandparent method

Applies to
TDUnitDialog

Declaration
Function NodeIsGrandparent(ANode: TTreeNode): boolean;

Implementation

function TDUnitDialog.NodeIsGrandparent(ANode: TTreeNode): boolean;
var
  AChildNode: TTreeNode;
begin
  Result := false;
  if ANode.HasChildren then
  begin
    AChildNode := ANode.GetFirstChild;
    while AChildNode <> nil do
    begin
      Result := AChildNode.HasChildren or Result;
      AChildNode := ANode.GetNextChild(AChildNode);
    end;
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com