FMX TListView 动态添加Item和Item里面的Object

FMX TListView比较复杂，功能也比较强大。如果是比较简单的列表，可以用TListBox代替，运用比较简单。FMX TListView的设计时运用和一般的控件也不一样，不是严格的"可视即可得"，这和其它的控件使用方式差别比较大，比如，如果没有和Living binding控件配合，设计时是不能直接创建Item的，设计时只是设计了Item的外观样式，Item是运行时添加的(Demo里的例子基本是和Living Binding配合的，所以有设计时的Item)。而且，Custom的样式也不是设计时能设计的，是在运行时通过代码产生的。总之，比较复杂。。。

设计时添加各种Object的样式，见下图:

在Structure里选择"item",然后点属性里"+"属性，下拉框里显示了系统自带的各种样式。

另外，看似一个简单的运用，就是运行时添加Item和Item里的各种Object，FMX TListView 运行时添加Item比较简单，listView1.Item.Add; 就添加了一个Item。但是，发现无法顺利运行时添加Item里的各种Object（比如自带的TListItemText, TListItemImage, 等等）....

然后就在网上找，一时也没找到，看DEMO，也没有相关的代码，参考控件的Editor.pas，也看不出来什么。。。一时困境。估计对TListView的工作机制没理解。几天，在网上偶尔看到了一篇老外的贴子，正是说如何运行时添加Item的OBJECT的，试了试，结果出来了，就记录下来了：帖子见： https://stackoverflow.com/questions/29339179/create-a-customized-item-appearance-for-listview-delphi-xe7

试过这个方法，对TListView的工作方式稍微有了点理解，还真是不一般的方法。但是还有好多不了解的地方，慢慢来。

测试代码如下：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView.Appearances,
  FMX.ListView.Adapters.Base, FMX.ListView, FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    lv1: TListView;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure lv1UpdateObjects(const Sender: TObject; const AItem: TListViewItem);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.btn1Click(Sender: TObject);
var
  item: TListViewItem;
  text: TListItemText;
begin
  item := lv1.Items.Add;
  //这里是实际显示出来.....
  text := Item.Objects.FindObject('a1111') as TListItemText;
  if Assigned(text) then
    text.Text := '1234567';
  item := lv1.Items.Add;
end;

//这里的代码相当与设计时的
procedure TForm1.lv1UpdateObjects(const Sender: TObject; const AItem: TListViewItem);
var
  text: TListItemText;
  image: TListItemImage;
begin
  //item := lv1.Items.Add;
  text := AItem.Objects.FindObject('a1111') as TListItemText;
  if text = nil then
  begin
    text := TListItemText.Create(AItem);
    text.Name := 'a1111';
    text.Align := TListItemAlign.Center;
    text.Height := AItem.Height-2;
    text.Width  := 200;
    text.Text := '';
    text.Data := nil;
    text.Visible := True;
    text.PlaceOffset.X := 2;
    text.PlaceOffset.Y := 2;
    text.TextColor := TAlphaColors.Red;
  end;

end;

end.

好奇怪的方法。。。。