Delphi XE2 之 FireMonkey 入门，44 - 控件基础: TTreeView、TTreeViewItem

Delphi XE2 之 FireMonkey 入门(44) - 控件基础: TTreeView、TTreeViewItem

TScrollBox -> TCustomTreeView -> TTreeView 子项类型是 TTreeViewItem.

测试, 先在窗体上放一个 TTreeView, 并需要它的 OnChange 事件:

unit Unit1;

interfaceuses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Layouts, FMX.TreeView;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
var
  item: TTreeViewItem;
  i: Integer;
begin
  TreeView1.Align := TAlignLayout.alLeft;
  TreeView1.UseSmallScrollBars := True;
  TreeView1.AlternatingRowBackground := True;
  TreeView1.ShowCheckboxes := True;

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item1';

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item2';
    for i := 0 to 19 dowith TTreeViewItem.Create(Self) dobegin
        Parent := item;
        Text := item.Text + '_' + IntToStr(i+1);
        IsChecked := Odd(i);
      end;
  item.IsExpanded := True;

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item3';
end;

procedure TForm1.TreeView1Change(Sender: TObject);
var
  item: TTreeViewItem;
begin
  item := TreeView1.Selected;
  if item <> nilthenbegin
    ShowMessageFmt(
      'TreeView1.GlobalCount: %d'#13#10 +
      'TreeView1.Count: %d'#13#10 +
      'TTreeViewItem.Count: %d'#13#10 +
      'TTreeViewItem.Level: %d'#13#10 +
      'TTreeViewItem.GlobalIndex: %d'#13#10 +
      'TTreeViewItem.Index: %d'#13#10
      , [TreeView1.GlobalCount, TreeView1.Count, item.Count, item.Level, item.GlobalIndex, item.Index]
    );
  end;
end;

end.

成员概览:

{ TCustomTreeView }
publicconstructor Create(...); override; //
  destructor Destroy; override;      //
  procedure EndUpdate; override;     //结束更新
  procedure Clear;                   //清空
  procedure ExpandAll;               //全部展开
  procedure CollapseAll;             //全部关闭
  function ItemByText(...): TTreeViewItem;        //根据标题获取项
  function ItemByPoint(...): TTreeViewItem;       //根据位置获取项
  function ItemByIndex(...): TTreeViewItem;       //根据索引获取项
  function ItemByGlobalIndex(...): TTreeViewItem; //根据总索引获取项
  procedure AddObject(...); override;    //
  procedure RemoveObject(...); override; //
  procedure MouseDown(...); override;    //
  procedure MouseMove(...); override;    //
  procedure MouseUp(...); override;      //
  procedure KeyDown(...); override;      //
  procedure KeyUp(...); override;        //
  procedure DragOver(...); override;     //
  procedure DragDrop(...); override;     //
  property Count: Integer ...;           //第一层项总数
  property GlobalCount: Integer ...;     //项总数
  property CountExpanded: Integer ...;   //???
  property Selected: TTreeViewItem ...;  //当前选择的项
  property Items[Index: Integer]: TTreeViewItem ...;   //索引到项
  property AllowDrag: Boolean ...;                     //是否允许拖拽
  property AlternatingRowBackground: Boolean ...;      //是否使用交替背景
  property ItemHeight: Single ...;                     //项高
  property HideSelectionUnfocused: Boolean ...;        //是否在失去焦点时隐藏选择
  property MultiSelect: Boolean ...;                   //能否多选
  property ShowCheckboxes: Boolean ...;                //是否显示多选框
  property Sorted: Boolean ...;                        //
  property OnChange: TNotifyEvent ...;                 //
  property OnChangeCheck: TNotifyEvent ...;            //
  property OnCompare: TOnCompareTreeViewItemEvent ...; //
  property OnDragChange: TOnTreeViewDragChange ...;    //
end;

{ TTreeView }
publishedproperty StyleLookup;                            //
  property CanFocus default True;                  //
  property DisableFocusEffect;                     //
  property TabOrder;                               //
  property AllowDrag default False;                //
  property AlternatingRowBackground default False; //
  property ItemHeight;                             //
  property HideSelectionUnfocused default False;   //
  property MultiSelect default False;              //
  property ShowCheckboxes default False;           //
  property Sorted default False;                   //
  property OnChange;                               //
  property OnChangeCheck;                          //
  property OnCompare;                              //
  property OnDragChange;                           //
end;

{ TTreeViewItem }
publicconstructor Create(...); override;        //
  procedure Paint; override;                //
  procedure AddObject(...); override;       //
  procedure RemoveObject(...); override;    //
  procedure Sort(...); override;            //
  function ItemByPoint(...): TTreeViewItem; //根据位置获取项
  function ItemByIndex(...): TTreeViewItem; //根据索引获取项
  property Count: Integer ...;              //子项数
  property GlobalIndex: Integer ...;        //全局索引
  function TreeView: TCustomTreeView;       //拥有它的 TreeView
  function Level: Integer;                  //在第几层
  function ParentItem: TTreeViewItem;       //父项
  property Items[Index: Integer]: TTreeViewItem ...; //索引到子项
publishedproperty IsChecked: Boolean ...;     //是否选中复选框
  property IsExpanded: Boolean ...;    //是否展开
  property IsSelected: Boolean ...;    //是否选择
  property AutoTranslate default True; //是否自动接收语言翻译
  property Font;                       //
  property StyleLookup;                //
  property Text;                       //
  property TextAlign default TTextAlign.taLeading; //
end;

TScrollBox -> TCustomTreeView -> TTreeView 子项类型是 TTreeViewItem.

测试, 先在窗体上放一个 TTreeView, 并需要它的 OnChange 事件:

unit Unit1;

interfaceuses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Layouts, FMX.TreeView;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
var
  item: TTreeViewItem;
  i: Integer;
begin
  TreeView1.Align := TAlignLayout.alLeft;
  TreeView1.UseSmallScrollBars := True;
  TreeView1.AlternatingRowBackground := True;
  TreeView1.ShowCheckboxes := True;

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item1';

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item2';
    for i := 0 to 19 dowith TTreeViewItem.Create(Self) dobegin
        Parent := item;
        Text := item.Text + '_' + IntToStr(i+1);
        IsChecked := Odd(i);
      end;
  item.IsExpanded := True;

  item := TTreeViewItem.Create(Self);
  item.Parent := TreeView1;
  item.Text := 'Item3';
end;

procedure TForm1.TreeView1Change(Sender: TObject);
var
  item: TTreeViewItem;
begin
  item := TreeView1.Selected;
  if item <> nilthenbegin
    ShowMessageFmt(
      'TreeView1.GlobalCount: %d'#13#10 +
      'TreeView1.Count: %d'#13#10 +
      'TTreeViewItem.Count: %d'#13#10 +
      'TTreeViewItem.Level: %d'#13#10 +
      'TTreeViewItem.GlobalIndex: %d'#13#10 +
      'TTreeViewItem.Index: %d'#13#10
      , [TreeView1.GlobalCount, TreeView1.Count, item.Count, item.Level, item.GlobalIndex, item.Index]
    );
  end;
end;

end.

成员概览:

{ TCustomTreeView }
publicconstructor Create(...); override; //
  destructor Destroy; override;      //
  procedure EndUpdate; override;     //结束更新
  procedure Clear;                   //清空
  procedure ExpandAll;               //全部展开
  procedure CollapseAll;             //全部关闭
  function ItemByText(...): TTreeViewItem;        //根据标题获取项
  function ItemByPoint(...): TTreeViewItem;       //根据位置获取项
  function ItemByIndex(...): TTreeViewItem;       //根据索引获取项
  function ItemByGlobalIndex(...): TTreeViewItem; //根据总索引获取项
  procedure AddObject(...); override;    //
  procedure RemoveObject(...); override; //
  procedure MouseDown(...); override;    //
  procedure MouseMove(...); override;    //
  procedure MouseUp(...); override;      //
  procedure KeyDown(...); override;      //
  procedure KeyUp(...); override;        //
  procedure DragOver(...); override;     //
  procedure DragDrop(...); override;     //
  property Count: Integer ...;           //第一层项总数
  property GlobalCount: Integer ...;     //项总数
  property CountExpanded: Integer ...;   //???
  property Selected: TTreeViewItem ...;  //当前选择的项
  property Items[Index: Integer]: TTreeViewItem ...;   //索引到项
  property AllowDrag: Boolean ...;                     //是否允许拖拽
  property AlternatingRowBackground: Boolean ...;      //是否使用交替背景
  property ItemHeight: Single ...;                     //项高
  property HideSelectionUnfocused: Boolean ...;        //是否在失去焦点时隐藏选择
  property MultiSelect: Boolean ...;                   //能否多选
  property ShowCheckboxes: Boolean ...;                //是否显示多选框
  property Sorted: Boolean ...;                        //
  property OnChange: TNotifyEvent ...;                 //
  property OnChangeCheck: TNotifyEvent ...;            //
  property OnCompare: TOnCompareTreeViewItemEvent ...; //
  property OnDragChange: TOnTreeViewDragChange ...;    //
end;

{ TTreeView }
publishedproperty StyleLookup;                            //
  property CanFocus default True;                  //
  property DisableFocusEffect;                     //
  property TabOrder;                               //
  property AllowDrag default False;                //
  property AlternatingRowBackground default False; //
  property ItemHeight;                             //
  property HideSelectionUnfocused default False;   //
  property MultiSelect default False;              //
  property ShowCheckboxes default False;           //
  property Sorted default False;                   //
  property OnChange;                               //
  property OnChangeCheck;                          //
  property OnCompare;                              //
  property OnDragChange;                           //
end;

{ TTreeViewItem }
publicconstructor Create(...); override;        //
  procedure Paint; override;                //
  procedure AddObject(...); override;       //
  procedure RemoveObject(...); override;    //
  procedure Sort(...); override;            //
  function ItemByPoint(...): TTreeViewItem; //根据位置获取项
  function ItemByIndex(...): TTreeViewItem; //根据索引获取项
  property Count: Integer ...;              //子项数
  property GlobalIndex: Integer ...;        //全局索引
  function TreeView: TCustomTreeView;       //拥有它的 TreeView
  function Level: Integer;                  //在第几层
  function ParentItem: TTreeViewItem;       //父项
  property Items[Index: Integer]: TTreeViewItem ...; //索引到子项
publishedproperty IsChecked: Boolean ...;     //是否选中复选框
  property IsExpanded: Boolean ...;    //是否展开
  property IsSelected: Boolean ...;    //是否选择
  property AutoTranslate default True; //是否自动接收语言翻译
  property Font;                       //
  property StyleLookup;                //
  property Text;                       //
  property TextAlign default TTextAlign.taLeading; //
end;