Delphi-Help

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;

   end

   else

      Result := false;

end;

procedure TMainFrm.Button1Click(Sender: TObject);

begin

   if IsTreeviewFullyCollapsed( TreeView1 ) then

      ShowMessage( 'TTreeView полностью свернут' );

end;