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