Navigation mit TreeView

[moonwhaler]

Um so etwas zu lösen, habe ich die Komponente "TNotebook" in Verbindung mit einem normalen "TTreeView" verwendet. Wird eine neue Seite hinzugefügt, dann wird dies in eine Eigenschaft "Pages" (vom Typ "TStrings") hinterlegt, d.h. der "Count" wird entsprechend erhöht. Eine super Sache, wenn man dies mit einem "OnChange" bei dem TreeView verknüpft:

Delphi-Quellcode:

procedure TfrmSettings.tv_configChange(Sender: TObject; Node: TTreeNode);
begin
  // Automatically select the correct "tab" by using the (image) state-index
  // from the tree-element
  nb_config.PageIndex := tv_config.Selected.StateIndex;
end;

Ist ein wenig Gewurstel, da ich als "PageIndex" (im Notebook) den "StateIndex" des aktuell gewählten Tree-Items verwende. Was aber eigentlich super funktioniert, nur vorher zugewiesen werden muss:

Delphi-Quellcode:

procedure TfrmSettings.BuildConfigurationTree( Tree: TTntTreeView );
var
  ParentNode: TTntTreeNode;
  Owner: TTntTreeNodes;

  function AddNewConfigItem( Parent: TTntTreeNode;
                             Text: WideString;
                             StateIndex: Integer ): TTntTreeNode;
  var
    Owner: TTntTreeNodes;
  begin
    Owner := tv_config.Items;

    result := Owner.AddChild( Parent, Text );
    result.ImageIndex := -1;
    result.SelectedIndex := -1;
    result.StateIndex := StateIndex;
  end;

begin
  Owner := Tree.Items;
  Owner.BeginUpdate;

  try
    try
      // Delete all current tree items
      Owner.Clear;

      //General
      ParentNode := AddNewConfigItem( nil, _( 'General' ), -1 );
      AddNewConfigItem( ParentNode, _( 'Workstation' ), 0 );
      AddNewConfigItem( ParentNode, _( 'Display' ), 1 );
      AddNewConfigItem( ParentNode, _( 'Sound effects' ), 2 );
      AddNewConfigItem( ParentNode, _( 'Logging' ), 3 );

      // Interfaces
      ParentNode := AddNewConfigItem( nil, _( 'Interfaces' ), -1 );
      AddNewConfigItem( ParentNode, _( 'Scanner' ), 4 );

      // OIP
      ParentNode := AddNewConfigItem( nil, _( 'OIP' ), -1 );
      AddNewConfigItem( ParentNode, _( 'Directories' ), 5 );
      AddNewConfigItem( ParentNode, _( 'Printer' ), 6 );
    finally
      Owner.EndUpdate;
    end;
  except
    Owner.Owner.Invalidate;  // force repaint on exception
    raise;
  end;
end;

Is ne feine Sache (siehe Anhang), aber ich weiß nicht, ob das der Königsweg ist...