unit TreeTest;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
FMX.TreeView;
type
TForm1 =
class(TForm)
TreeView1: TTreeView;
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormShow(Sender: TObject);
Var ParentItem,
TreeItem : TTreeViewItem;
Cnt : Integer;
begin
Cnt := 1;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 1';
TreeItem.Parent := TreeView1;
ParentItem := TreeItem;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 2';
TreeItem.Parent := ParentItem;
ParentItem := TreeItem;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 3';
TreeItem.Parent := ParentItem;
ParentItem := TreeItem;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 4: kurzer Text';
TreeItem.Parent := ParentItem;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 4 mit langem Text für Umbruch';
TreeItem.Parent := ParentItem;
TreeItem := TTreeViewItem.Create(
nil);
TreeItem.
Name := '
ItemNo'+IntToStr(Cnt);
Inc(Cnt);
TreeItem.WordWrap := True;
TreeItem.Text := '
Stufe 4: wieder kurz';
TreeItem.Parent := ParentItem;
end;
end.