YXGust

【Delphi 开箱即用 1】简单实现拖拽文件到窗口

摘要：当今，大多数个人小程序都普遍具备拖拽功能，因为拖拽操作极其便捷。毕竟，相比于传统的浏览文件夹方式打开目标文件，拖拽操作简直是一种解放。在这里，我们无需依赖任何第三方控件，单纯通过代码实现拖拽功能。目录1. 最终效果图2. 部分核心代码3. 完整Demo源码下载 1. 最终效果图 2. 部分核心代码阅读全文

posted @ 2024-05-17 20:41 YXGust 阅读(489) 评论(0) 推荐(0)

解除一款插件在离线状态下会强制更新

摘要：前言具体哪款插件这里就不说了,本身是免费的,但是会时不时提醒你去更新,提醒就算了,还会计算系统的时间,超过几个月就禁止使用,逼你更新. 因为本身老版本的功能一般能满足需求,真的不想再去更新,安装一次费时又费力,已经被搞过一次强制安装,这次想找出原因. 表面上的更新提醒插件会访问自己的网站,有更新阅读全文

posted @ 2022-10-06 16:22 YXGust 阅读(146) 评论(0) 推荐(0)

Delphi as 和 is 的使用

摘要： as就是把某个类型对象转换为某个指定类型,这样方便使用指定类型中的一些成员. is就是判断某个对象是不是某个类型,可以筛选出我们需要的对象. 下面是一个as is 的实例代码,该代码同时也实现了两种方法对控件批量赋值,对控件批量赋予同一个消息处理函数. unit Unit1; interface u 阅读全文

posted @ 2022-10-03 12:00 YXGust 阅读(374) 评论(0) 推荐(0)

Delphi 从字符串中提取数字

摘要： function GetNumberFromStr(strIn: string; sFlag: string): string; var i: Integer; tempStr: string; begin tempStr := ''; if Length(strIn) = 0 then begin 阅读全文

posted @ 2022-09-28 09:00 YXGust 阅读(1418) 评论(2) 推荐(0)

Delphi 多进程共享内存的简单封装单元

摘要：该单元转自武稀松的博客稍作修改,使其支持Delphi7 { 共享内存封装. 封装成了MemoryStream的形式. 用法如下: var ms : TShareMemStream; ms := TShareMemStream.Create('Global\test', FILE_MAP_ALL_A 阅读全文

posted @ 2022-09-24 18:10 YXGust 阅读(653) 评论(0) 推荐(0)

Delphi 自定义窗体类名

摘要：原理就是覆盖原CreateParams函数，重写新CreateParams函数，在新CreateParams函数继承完之后马上修改Parames.WinClassName type TForm1 = class(TForm) private { Private declarations } publ 阅读全文

posted @ 2022-09-17 12:14 YXGust 阅读(238) 评论(0) 推荐(0)

Delphi 新语法：泛型

摘要：这里的新语法一般指Delphi7不支持的语法，高版本中会经常遇到，所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型，而是先定义一个类型变量，在使用的时候再确定参数的具体类型。准备从万一博客中学习，节约翻找资料的时间。最简单的泛型一开始我们看下Tbyte类型的定义阅读全文

posted @ 2022-09-14 11:45 YXGust 阅读(2133) 评论(4) 推荐(0)

Delphi 新语法：For in语句

摘要：据说Delphi 2005开始支持For in语句.并没有深入调查,依然从万一博客学习并整理. 一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa, 阅读全文

posted @ 2022-09-12 20:41 YXGust 阅读(654) 评论(0) 推荐(0)

Delphi 新语法：匿名函数

摘要：这里的新语法一般指Delphi7不支持的语法. 对于比较简单实现，不需要复用，开发者更喜欢在使用时，原地声明，而没有必要单独声明并实现这个方法. 通过关键字reference来定义一个匿名函数. 下面直接来段简单的代码 type // 首先声明匿名方法的类型(两个整形参数,返回值亦是整形) TInt 阅读全文

posted @ 2022-09-08 09:47 YXGust 阅读(885) 评论(0) 推荐(0)

解决Delphi报Range check error错误

摘要：解决弹 Range check error错误阅读全文

posted @ 2022-09-06 16:03 YXGust 阅读(1314) 评论(0) 推荐(0)