在实现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
时间: 2024-10-15 01:20:30