2015年11月2日
XE ListBox实现伸缩效果
摘要： 功能：实现年月日压缩，初始化时item是所有年，点击年展开月，点击月展开天，再点击则收缩。思路：实际上一开始是将所有item显示，只是将月日的item.height赋值为0， 记录每一行的item的index，包括年，月，日， 找到年的item，点击时，显示月的item，赋month.hei... 阅读全文
posted @ 2015-11-02 19:21 王云盼 阅读(748) 评论(0) 推荐(0)
获取指定的数
摘要： 获取0至100中的0至29,42至100， 刚开始我想的太多,要小于29，大于42，这么多条件什么的。。。。 不多说了，我自己脑子没转过来var i,j: integer;begin j := 0; for i := 0 to 99 - 13 do begin memo1.Lines.a... 阅读全文
posted @ 2015-11-02 18:14 王云盼 阅读(176) 评论(0) 推荐(0)
XE下显示托盘图标（TrayIcon）
摘要： 1.拖一个TrayIcon控件2.拖一个ApplicationEvents控件3.拖一个PopupMenu控件将TrayIcon的PopupMenu属性与PopupMenu控件关联unit UnitMain;interfaceuses Winapi.Windows, Winapi.Messages... 阅读全文
posted @ 2015-11-02 16:44 王云盼 阅读(1323) 评论(0) 推荐(0)
XE 画矩形实现拖拉改变大小（属性）
摘要： 实现原理：1.拖一个rectangle控件，Align属性为TOP2.拖一个Split控件，Align为Top3.拖Rectangle，Align为Bottom4.拖Split，Align为Bottom5.左边、右边依次类推，6.最后拖一个Rectangle，Align为Client，Stroke属... 阅读全文
posted @ 2015-11-02 16:15 王云盼 阅读(306) 评论(0) 推荐(0)
XE StringGrid应用（G1属性触发G2）
摘要： unit UnitMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.... 阅读全文
posted @ 2015-11-02 15:54 王云盼 阅读(511) 评论(0) 推荐(0)