-
2016/6/30 10:12:06 delphi7 tips
2016/7/4 0:41:58 倒叙 for i:= 7 downto 1 do .... 2016/7/3 22:24:27 for in do for betStart:= 1 to 7 do ShowMessage(IntToStr(betStart)); 2016/7/3 19:38:17Howto convert a float or double to string in delphi Symptom: 2 .You need to convert a float or do...
-
Delphi判断某个类是否实现了某个接口
通过TObject.GetInterface可以获得对象的实例实现某个接口，前提条件是必须实例化对象后才能运行GetInterface 下面的方法可获取类是否实现了某个接口，并返回接口的偏移： function FindInterface(AClass: TClass; GUID:TGUID; var Offset:NativeInt):Boolean;var i :...
2018-06-17 18:58:12 delphi
-
[调整] Firemonkey iOS 原生 Edit 透明框, 改变框色
说明：iOS 原生 Edit 透明框 适用：Berlin Firemonkey 方法：在 StyleLookup 输入 transparentedit 效果： 如果有图片 Image 在这二个 Edit 的上方，效果如下： 说明：iOS 原生 Edit 设定框色 适用：Berlin Firemonkey 代码修改说明： 请将源码 FMX.Edit.iOS.pas复制到...
2018-06-17 18:58:08 delphi
-
Delphi最简化异步选择TCP服务器
网上Delphi的Socket服务器优良代码，实在少见，索性写个简化的异步Socket服务器，虽然代码较少，但却该有的都有了，使用的是异步选择WSAAsyncSelect，减少了编写线程的繁琐。可能会问，性能如何？当然使用窗体消息通知，占用的是主线程，侦听、发送、多个客户端的接收...
-
[控件] 加强版 TOneSelection (改良自 Berlin 10.1 TSelection)
本控件修改自 Delphi Berlin 10.1 的 TSelection (FMX.Controls.pas) 修改重点： 移动点显示在上方 增加（左中，上中，右中，下中）控制点，含原来的总共有 8 个控制点 代码说明： 代码内 {+++ 代表我增加的代码 代码内 {--- 代表我删除的代码 未来新版 Delphi 可以自...
2018-06-17 18:58:03 delphi
-
【近况】杂事+分享阿里大于短信验证码的完整实现代码
最近一直在忙其他事情，FOL停了好久，汗。。。 1、上个月帮朋友搞了个微信的公众号，然后因为公众号要做些用户管理的，又去把短信验证这块做了一下，用的是阿里大于的服务。期间被sign码拖了两天，总算是搞定了。等下把代码分享一下。 2、公众号的事情剩下一些页面的工...
-
[函數] Firemonkey Android 取得系统参数设定的字型大小
Android 系统参数设定内，可以设定字型大小： 可以透过下面代码来取得字型大小比例： function FontScale: Single; var Resources: JResources; Configuration: JConfiguration; begin Result : = 1 ; if TAndroidHelper.Context nil then begin Resources : = TAndroi...
2018-06-17 18:57:52 delphi
-
Delphi的几个跨平台小游戏例子。
Embarcadero开源了几个FireMonkey的小游戏，支持Windows， Android，Ios， MacOS等。 源码地址： https://github.com/EmbarcaderoPublic/DelphiArcadeGames 游戏介绍： http://community.embarcadero.com/blogs?view=entryid=8927 1.外星人入侵，射击游戏 2.火星火箭 3...
2018-06-17 18:57:51 delphi
-
取消StringGrid的自动滚动
StringGrid的Options的goRowSelect为false时,在点击右侧未显示完全的Cell,StringGrid会自动向左滚动，怎样设定，取消StringGrid的自动滚动啊？Delphi7版的 终于自己找到解决办法了： 拷贝Grids.pas到自己项目的目录， 并通过Project Manager加入到自己工程项目中 修改...
-
失败的大牛事件委托，与我的委托
看了网上大牛的DELPHI事件委托，实际用起来是有BUG的。代码如下： unit faDelegate; interface uses Generics.collections, TypInfo, ObjAuto, SysUtils; type Event = class private FMethods : TListTMethod; FInternalDispatcher: TMethod; //悲催的是泛型类的方法...
2018-06-17 18:57:46 delphi
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash