Das hinzufügen von Knoten zum FireMonkey-das TreeView zur Laufzeit

Kann ich keine gefunden Stichprobe in der online-Dokumentation oder in den demos enthalten, die mit Delphi XE2, für das hinzufügen von Knoten zu einem FMX.TreeView.TTreeView - Steuerelements zur Laufzeit. Also, wie kann ich hinzufügen, entfernen, und Durchlaufen von Knoten von einer FireMonkey-TreeView zur Laufzeit?

  • Für ein weiteres Beispiel für das hinzufügen der tree-Elemente zur Laufzeit finden Sie in der CustomTreeView Projekt als Beispiel bereitgestellt, die mit RAD Studio (in der Samples\FireMonkey-Ordner).
InformationsquelleAutor Salvador | 2011-09-21
  1. 13

    Ich denke, wir lernen alle an dieser Stelle...

    Aber von dem, was ich gesehen habe, das TTreeView dem Prinzip, dass jedes Steuerelement kann die übergeordnete anderen Steuern.

    Alles, was Sie tun müssen, ist, legen Sie die Parent - Eigenschaft, um das Element zu zeigen, wie ein Kind.

    var
  Item1 : TTreeViewItem;
  Item2 : TTreeViewItem;
begin
  Item1 := TTreeViewItem.Create(Self);
  Item1.Text := 'My First Node';
  Item1.Parent := TreeView1;

  Item2 := TTreeViewItem.Create(Self);
  Item2.Text := 'My Child Node';
  Item2.Parent := Item1;
end;

    Weil Sie Dinge machen können, die nie zuvor möglich, wie die Aufgabe jeglicher Kontrolle in der Strukturansicht aus. Zum Beispiel mit diesem code wird eine Schaltfläche hinzufügen, um den Bereich von Item2, und der button nicht sichtbar sein, bis die Element2 sichtbar ist.

      Button := TButton.Create(self);
  Button.Text := 'A Button';
  Button.Position.X := 100;
  Button.Parent := Item2;
    • Es ist sehr wichtig, beachten Sie, dass die Root-Node (alle Knoten, die nicht im Eigentum von einem anderen Knoten) sind Eigentum der TreeView es sich von selbst.
    InformationsquelleAutor Robert Love
  2. 0

    Habe ich eine andere Idee. Die erste Antwort hat mir geholfen, es zu erhalten.
    So Fügen Sie den folgenden code

    Var
TempItem:TTreeViewItem;
Begin
TempItem := TTreeViewItem.Create(Self);
TempItem.Text := 'Enter Caption Here';
TempItem.Parent := TreeView;  
End

    Nun kommt der eigentliche trick kommt, wenn Sie haben, um das gratis-Artikel, so dass Sie nicht unnötig Speicher. So können sagen, Sie verwenden es in einer Schleife, wie ich hier:

    ADOTable.Connection := ADOConnection;
  ADOTable.TableName := 'MenuTree';

  ADOTable.Open;
  ADOTable.First;

  ADOTable.Filter := '(CHFlag=''CURRENT'') AND (Parent=''Tree'')';
  ADOTable.Filtered := True;

  While NOT ADOTable.Eof Do
    Begin
      TempItem := TTreeViewItem.Create(Self);
      TempItem.Text := ADOTable['ItemName'];
      TempItem.Parent := TreeView;
      // TempItem.Free;

      ADOTable.Next;
    End;
  TempItem.Free;
  ADOTable.Close;
    • Gibt es irgendwelche neuen Informationen für die Programmierer als die beste answear?
    InformationsquelleAutor Jacques Koekemoer
  3. 0

    Mit AddObject(FmxObject) können Sie fügen Sie jedem Objekt (Button etc.) wie gut...

    InformationsquelleAutor Hartmut Hamker
Schreibe einen Kommentar