Firemonkey绑定对象列表

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

 

一、追加对象

用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;

 

二、修改GridLine的颜色

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

解决办法是，只保留gridstyle

而后修改linefill

将Brush.Color修改成想要的颜色便可。

 

如下是实际效果：

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