var  Item1: TListViewItem;begin    Item1 := ListView1.Items.Add;    Item1.Purpose:=TListItemPurpose.Header;//    Item1.Purpose:=TListItemPurpose.Footer;    Item1.text:=' xxxx';//Header或Footer显示的内容end;…
近5.6年已经没有看见关于delphi的新技术的书出来了(看来在国内delphi的使用量确实很低了), 高勇同学最近出了一本<Delphi XE6 android 编程入门教程>,上周刚拿到,这一周大概看了一遍. 严格意义上,这本书不是按正常的出版的格式来的,大部分应该是类似博客的汇总.delphi 开发android 还是一个新事物,也就是去年才开始,相关资料也是少之甚少,这么短的的时间,能汇总出出这么高质量的资料, 先谢谢高勇同学能花这么多业余时间完成这么一项艰巨的任务. 首先,这本书主要…
http://blog.sina.com.cn/s/blog_44fa172f0101rpex.html Delphi XE6 Android拨号函数 (2014-05-07 17:48:51) 转载▼ 标签: it 分类: DelphiXE6 //引用单元:FMX.PlatForm, FMX.PhoneDialerprocedure TForm1.Call(ANum: String);var  PhoneDialerService: IFMXPhoneDialerService;begin i…
Delphi XE6 找出 FMX.Platform.Android.pas 档案,并复制到自己的 Project 路径里,找到 GetScrollingBehaviour 函数,修改成如下: unit FMX.Platform.Android; function TPlatformAndroid.GetScrollingBehaviour: TScrollingBehaviours; begin Result := [TScrollingBehaviour.BoundsAnimation{可回…
常用的ViewGroup,例如LinearLayout,在onMeasure方法内对每个child view执行measure前,会判断child view的visibility是否为gone.如果是gone,则不对这个child view执行measure操作,即这个child view的高度不被计算在linearLayout的高度里面.LinearLayout的measureVertical代码片段: if (child.getVisibility() == View.GONE) { i +…
在listView中加上android:headerDividersEnabled="false" android:footerDividersEnabled="false"…
C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile\ListView 路径下有两个dpk,装完后listview也能实现listbox的效果了 procedure TFormMain.FillListBox; var // item:TMetropolisUIListBoxItem; // listitem:TListboxItem; p: PpatientData; LItem: TListViewItem; i…
1) setting the Project Options, Uses Permissions, Wake lock = True 2) Adding Android.JNI.PowerManager to the uses clause 3) call: AcquireWakeLock; // at start up. ReleaseWakeLock; // at shutdown. //----------------------------------------------------…
1.拖放Label.button和popup控件到form 2.在structure将button1和label1拖到popup1上,然后调整布局就可以 Popup有几个重要的属性: 1.PlacementTarget:依附于那个控件弹出,当不设置这个属性值,依附的是当前的Form. 2.Placement:相对于所依附的控件所弹出的位置 3.HorizontalOffset:水平偏移量 4.VerticalOffset:垂直偏移量…
1. 确保正确安装Android SDK: 开始菜单 > 所有程序 > Embarcadero RAD Studio XE5 > > Android Tools > 打开 Android sdk manager  下载包文件, 如果无法更新包文件,请在hosts文件中添加一行 74.125.31.136  dl-ssl.google.com . 2. 确保正确配置AVD: Android SDK Manager > tools > manage AVDS(此时,你…