• [修正] Firemonkey Windows & macOS 平台下 Edit & M

    问题:Firemonkey Windows macOS 平台下 Edit Memo 中文输入后会取消原选取文字的 BUG 适用版本:Delphi 10.1.2 10.2.1 修正后效果: 修正代码: 请将 FMX.Edit.Style.pas复制到自己的工程目录下,再修改如下代码: (10.2.2 已修正此问题) procedure TStyledEdit.IME...

    2018-06-17 18:55:44 delphi

  • SPcomm

    Com口函数 自动获取Com口,函数列表 procedure EnumComPorts(Ports: TStrings); //自动获取com口函数varKeyHandle: HKEY;ErrCode, Index: Integer;ValueName, Data: string;ValueLen, DataLen, ValueType: DWORD;TmpPorts: TStringList;beginErrCode := RegOpenKeyEx(H...

    2018-06-17 18:55:43 delphi

  • Delphi中 弹出框的用法

    Delphi中的提示框有Application.MessageBox ShowMessagemessagedlg 个人认为 相对来说Application.MessageBox 更加灵活 也相对好用 Application.MessageBox('错误信息!', '提示', MB_ICONERROR); Application.MessageBox('确认信息?', '提示', MB_YESNO or MB_ICONQU...

    2018-06-17 18:55:43 delphi

  • cxgrid 非编辑状态下复制当前列的值 真折腾人

    1、自带的CTRL +C 只能复制整行,不知是不是版本问题。 2、有分组这个代码就不行了s:= G1DBView.DataController.Values[G1DBView.Controller.FocusedRowIndex ,G1DBView.Controller.FocusedColumnIndex]; 3、折腾后的方案: uses Clipbrd;procedure TForm28.Button1Cli...

    2018-06-17 18:55:37 delphi

  • 画好看的箭头线

    FormShow()-FormMouseDown-FormMouseMove-FormMouseUp 初始化 鼠标按下,起点 移动鼠标 鼠标弹起 ,终点 网上下的例子: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const Penwidth = 1;//画笔...

    2018-06-17 18:55:37 delphi

  • [笔记] FMX 在 iOS 平台主窗体 DoubleTap 手势,要慎用!

    最近得到用户的反馈,说 iOS 平台下的按钮操作怪怪的,按快点没反应(同一个按钮连续快按二下),需要按一下后等 0.3 秒后,才有反应。得到这个讯息后,检查了其它的平台 Windows , Android , macOS 等,操作都正常,这下有点头大了,代码都相同,但反应确不同?于是开...

    2018-06-17 18:55:33 delphi

  • Delphi json解析相关

    身为一个资深的Delphi 开发者, 最近在做一个小工具的时候,开始捡起来pascal语言。 主要是开发一个内部用的小工具, 主要功能: 1.解析json格式 2.格式化json文件 3.校验json文件有效性 查阅了不少Json开源项目,大多数都是对中文编码支持不佳。 最后的结论: 解析json...

    2018-06-17 18:55:33 delphi

  • Delphi7 GDI+学习

    Delphi7自带的绘图有锯齿,所以要学习GDI+ 主要是从这个网站学习 http://www.bianceng.com/Programming/Delphi/201212/34691.htm 相关控件下载 GDIPLUS_D7.rar uses GDIPAPI,GDIPOBJ; //包含这两个GDI+单元 TColor 与 RGB 的转换函数 function RGB2TColor(const R, G,...

    2018-06-17 18:55:33 delphidelphi7

  • 用VisualBasic开发绿色软件的探讨

    我认为的绿色软件就是免安装,短小精干的软件,目前的大部分共享软件都属于此类(或向绿色软件靠拢)。 连比较大的phoshop软件也把一些注册项放到一个专门的注册文件(reg文件)里,到时重装的操作系统,只需把reg文件导入的注册表即可。此外比如金山软件,基本上都是...

    2018-06-17 17:16:41 api开发delphi

  • VB入门教程之一

    我们需要什么?当我们在一个精彩的游戏世界中游历了一番之后,或是惊叹于某一工具软件的小巧精致之余,多少总会产生些许编程的冲动。编程吗,在以前如果你对电脑还是一个门外汉,那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言,譬如C、Qbasic、Pascal...

    2018-06-17 17:16:37 c程序设计delphi