检查TreeView节点是展开还是折叠

check if a TreeView is fully expanded or collapsed?

function IsTreeviewFullyExpanded(tv: TTreeview): Boolean;

var

Node: TTreeNode;

begin

Assert(Assigned(tv));

if tv.Items.Count > 0 then

begin

Node := tv.Items[0];

Result := True;

while Result and Assigned(Node) do

begin

Result := Node.Expanded or not Node.HasChildren;

Node := Node.GetNext;

end; {While}

end {If}

else

Result := False

end;

function IsTreeviewFullyCollapsed(tv: TTreeview): Boolean;

var

Node: TTreeNode;

begin

Assert(Assigned(tv));

if tv.Items.Count > 0 then

begin

Node := tv.Items[0];

Result := True;

while Result and Assigned(Node) do

begin

Result := not (Node.Expanded and Node.HasChildren);

Node := Node.GetNext;

end; {While}

end {If}

else

Result := False

end;