Firemonkey绑定对象列表

在实现Firemonkey绑定对象列表的过程中，我遇到的一些现有教程当中没有提到的细节，分享一下。

1、追加对象

用Navigator插入记录，位置总是在当前记录之前插入，没有在最后追加一个对象的方法。

使用下面的代码，可以在最后添加记录。

Pascal Code

1 2 3 4 5 6 7

procedure TListItemsEditorDlg.btnAppendClick(Sender: TObject); begin    if AdapterBindSource1.Editing then      AdapterBindSource1.Post;   FItems.Add(TSimpleListItem.Create);   AdapterBindSource1.Refresh; end;

2、修改GridLine的颜色

默认Style的GridLine颜色太浅，需要加深，使用Edit Default Style修改，运行时出错。

解决办法是，只保留gridstyle

然后修改linefill

将Brush.Color修改为想要的颜色即可。

以下是实际效果：

http://blog.sina.com.cn/s/blog_591968570102w2w3.html