if not Assigned(Modeless) then Assigned()什么意思! assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false). 用法示例(防止窗体被实例化多次): unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type

Delphi fmx控件在手机滑动与单击的问题 (2016-03-08 10:52:00) 转载▼ 标签: it delphi 分类: Delphi10 众所周知,fmx制作的app,对于象TEdit这样的控件,当你在Edit上面,上下滑动时,会产生单击事件,进而会弹出键盘,而这时候,用户做的滑动操作,是不想弹出键盘的.这就让你的app很不友好了. 我在QC上提出了这个需求,具体是https://quality.embarcadero.com/browse/RSP-13900.如果明白了这个问题

滑动输入数字 NumberBox控件 HorzIncrement:划动自动增加输入值的步长 combobox控件 http://docwiki.embarcadero.com/RADStudio/Berlin/en/Using_Pickers_to_Provide_Platform-Specific_Behavior_and_View_of_Selection_Controls http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.List

在应用到管理图标时,如长按显示删除标志,单击取消删除标志.在FMX的手势管理中,只有长按LONGTAP,点击TAP则是单独的事件,不能在同事件中管理.在执行LONGTAP后,TAP也会被触发​,解决方案,判断长按和点击是否同位置:添加变量TapLoaction:TPointf​​; procedure Tform1.form1Gesture(Sender: TObject;  const EventInfo: TGestureEventInfo; var Handled: Boolean);​b

刚接触到移动开发,很多不熟悉.配置好Android SDK后,​​如果​用模拟器来调试程序的话,那速度会让人崩溃,我用的Nexus7平板​​,插上电脑,开启USB调试,但奇怪在Delphi里就是找不到设备.查看官方文档后,找到解决办法.首先确认Android SDK Manager 里Extral中的google usb driver是否有安装,然后在电脑的“设备管理器”里,找到android设备,"更新驱动程序“,驱动路径就是google usb driver的安装路径.搞定.​​

在 Firemonkey 提供了一个跨平台的函数 TPath.GetDownloadsPath 来取得该平台的下载目录,但是非常奇怪的是,在 Windows 平台下,取得的下载目录确是: C:\Users\<username>\AppData\Local (官方文件) 而不是 C:\Users\<username>\Downloads 也许 EMB 想的是 App 沙箱做法,但如果想要取得 C:\Users\<username>\Downloads 这个目录该如何做呢?

引用System.sysutils function getOSInfo:String; begin result:= fomrat('%s:%d.%d', TOSVersion.Name,TOSVersion.Major,TOSVersion.Minor] ); end;

解决办法: 在OSX里打开XCODE,​点击XCODE菜单->​Perferences->Locations​在Commond  Line Tools选择XCODE ​

delphi fmx的字体等设置默认与皮肤有关,用代码直接修改字体颜色等是无效的,如何才能用代码修改呢?请按以下方法就可以: 1.在Object inspector中取消StlyedSettings中的Fontcolor选项的勾. 2.  Label6.TextSettings.FontColor:=TAlphaColors.Red; 也可以直接写代码代替步骤1: Label6.StyledSetings:=[]; Label6.TextSettings.FontColor:=TAlphaCol

VCL是基于系统的,根本在于系统API,FMX是基于绘图的,根本在于渲染引擎  VCL的发展受制于系统,(你在VCL的代码里面可以看到Borland对M$的妥协),而FMX的发展仅仅受制于硬件 VCL的性能更高,但是效果相对低下:FMX性能更低,但是效果相对更好  如果要理解FMX的精华,可以从我实现的富文本和VCL下实现的富文本对比中看出来,VCL下TRichEdit大量运用了API,但是我全部是靠着绘图实现的,使用最多的就是Canvas 个人感觉,现在安卓手机性能过剩很严重,没必要纠结界面到

Delphi FMX 转圈 原型进度条 progress AniIndicator TAniIndicator TFloatAnimation VCL下也有转圈菊花进度条 TActivityIndicator 属性: IndicatorSize,大小 FrameDelay速度 start AniIndicator1.Enabled := true; end AniIndicator1.Enabled := false;  ActivityIndicator1->StartAnimation():

delphi FMX Firemonkey Button 按钮 颜色 TintColor 颜色 Button1.TintColor:=TAlphaColorRec.Green;

Delphi XE2出来了一阵子了,里面比较抢眼的东西,除了VCLStyle这个换肤的东西之外,另外最让人眼亮的应该是FMX这个东西了.万一的博客上都连载了一票的关于FMX的使用心得了.我还是没咋去关注,因为技术这个东西,天天在变,跟着他跑,俺伤不起啊!直到今天,看了一下盒子,然后群中也有人说关于FMX在Windows下面如何来发送消息的问题,说发送不了.实际上,FMX这个东西是一套跨平台机制的GUI类库,消息这个东西只是Windows下面的,所以发送消息这个说法应该不算通用.不过加以研究应该可

1. 根据 Delphi 指令参考手册中 说明: Assigned 函式在参数不为 nil 时传回 True, 表示指针已经指到某个内存地址,这个内存地址可能是一个对象地首地址,也可能在函数或过程中,声明一个指针变量,没有赋值为 nil ,无乱的指向某处,这两个种情况, Assigned (指针变量)都不为 nil , 函数放回 True : 而参数为 nil 时则传回 False . Assigned 并不是一个真正的函数. 技巧: 用呼叫 Assigned 的方式来取代直接把参数拿来和 ni

Delphi xe8 FMX StringGrid根据内容自适应列宽. 网上的资料比较复杂,而且不是根据字体字号等设置列宽.故自己写了个function来用. function GetColMaxDataLength(ASGrid: TStringGrid): TObject;var  MaxColLength,                  //列数据的最大长度  CellLength: Single;            //单元格长度  ACol,ARow: Integer;begi

一.首先将压缩包TeeChart Pro VCL FMX 2017.20 FS.rar解压到一个目录,比如 E:\Application\Steema TeeChart Pro VCL FMX 2017.20 FS目录下: 二.关闭所有Delphi IDE: 三.运行E:\Application\Steema TeeChart Pro VCL FMX 2017.20 FS目录下的 TeeRecompile.exe程序,在编译之前做如下设置: 四.设置完成后,点击“BEGIN”开始编译安装. 五.

看FMX代码,发现有两种消息处理的实现方式,一种是用TMessageManager来实现自定义的消息,另外一种象TEdit中的实现,直接声明消息方法.   早前,看过文章说TMessageManager的用法,可用到的时候,又找不到,只好自己动手.   我的应用场景是这样:   当前的Frame弹出一个对话框Frame,当操作对话框的时候,想让当前的Frame跟着应响,让用户看到操作的结果,如下图,点大中小字体,后面的题目的字体会跟着变化:   参考fmx的代码,试着用消息机制实现了: 1.声明

关于 Delphi Xe10 FMX 启动参数  需要在启动窗口前来调用 也就是在bar文件修改 如果参数多可以用json来 uses system.SysUtils; var param: string; begin if FindCmdLineSwitch('p') then FindCmdLineSwitch('p', param); Application.Initialize; Application.CreateForm(TdmLoginCore, dmLoginCore); App

都是绝美项目- 如果有时间,要做的项目:0. 整整5个Cloud项目(可带来商业收益,其中还包括手机发送, S/D/N/L/NetDriver)1. Heidi/front/SQLITE STUDIO2. PhotoShop/Krita/光影魔术手/Paint.Net3. FastMsg4. Editor(VC)/kdevelop/notepadqq5. UML Soft 6. CE百科全书 7. 开发Delphi控件包,一个月五套,一万多 8. QT IM telegram 还有那些有意思的Q