Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Дерево (TreeView) Как проверить, свернут ли полностью TTreeView?

Как проверить, свернут ли полностью TTreeView?

Оцените материал
(0 голосов)

Как проверить, свернут ли полностью TTreeView?

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;

Авторизация



Счетчики