《21天学通Delphi》 - 随笔分类(第4页) - 疯狂delphi

获得硬盘的ID序列号(XE10.1+WIN8.1)

摘要：相关资料： https://zhidao.baidu.com/question/195408580.html 注意事项： 1.记得右击以管理员运行。 2.SysUtils 在XE中要改为System.SysUtils。实例代码： 1 unit Unit1; 2 3 interface 4 5 us 阅读全文

posted @ 2017-04-01 16:49 疯狂delphi 阅读(2163) 评论(0) 推荐(0)

屏幕亮度(XE10.1+WIN8.164)

摘要：相关资料： http://bbs.csdn.net/topics/390664310 实例代码： 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Varia 阅读全文

posted @ 2017-04-01 11:16 疯狂delphi 阅读(561) 评论(0) 推荐(0)

屏幕相关操作（XE10.1+WIN8.164）

摘要：相关资料： http://www.bianceng.cn/Programming/Delphi/201104/25455.htm http://blog.csdn.net/anbangs/article/details/5008923 http://bbs.csdn.net/topics/28006 阅读全文

posted @ 2017-04-01 11:04 疯狂delphi 阅读(434) 评论(0) 推荐(0)

接收与发送邮件(XE10.2+WIN764)

摘要：千万不要用QQ邮箱测试，我试了半天，没整明白。一、设置信息 POP3接收邮件POP3服务器：exchange.grandsoft.com.cn端口：110账号：zhujq-a@glodon.com密码：123456789你的Email：zhujq-a@glodon.com SMTP发送邮件SMTP 阅读全文

posted @ 2017-03-31 19:38 疯狂delphi 阅读(2182) 评论(0) 推荐(0)

教程-在Delphi中怎么查看是否有内存泄漏(Delphi2007)+WIN7

摘要：相关资料：1.http://bbs.csdn.net/topics/390630932?page=1 PS:1.本实例D2007及以上版本支持。2.检测内存工具 EurekaLog fastmm 实例代码：Project1.dpr: 1 program Project1; 2 3 uses 4 Fo 阅读全文

posted @ 2017-02-28 18:14 疯狂delphi 阅读(1697) 评论(0) 推荐(0)

Delphi之Exception获得错误信息

摘要：相关资料： http://www.cnblogs.com/hackpig/archive/2010/02/15/1668547.html 实例代码： PS： try DataModule1.PHBADOQuery2.ExecSQL ;except on e:exception do begin Sh 阅读全文

posted @ 2017-01-13 09:41 疯狂delphi 阅读(1760) 评论(0) 推荐(0)

Delphi之Raise抛出异常

摘要：相关资料： http://blog.csdn.net/a20071426/article/details/10160171 https://www.cnblogs.com/jijm123/p/11010309.html 实例代码： 1 unit Unit1; 2 3 interface 4 5 us 阅读全文

posted @ 2017-01-13 09:34 疯狂delphi 阅读(488) 评论(0) 推荐(0)

DelphiXE8FMX工程实现无边框托动(FMX内部方法)

摘要：注意：可以实现效果，但不知道我的用法对不对(或着说是不是最优化的用法)，望高手们指教。实例代码：阅读全文

posted @ 2017-01-11 12:04 疯狂delphi 阅读(465) 评论(0) 推荐(0)

DelphiXE8FMX工程实现无边框托动(发送消息)

摘要：1.引用单元 uses Winapi.Windows, FMX.Platform.Win, Winapi.Messages; 2.发送消息 //发送系统消息SendMessage(FmxHandleToHwnd(Handle), WM_SYSCOMMAND,SC_MOVE + HTCAPTION, 阅读全文

posted @ 2017-01-11 11:27 疯狂delphi 阅读(336) 评论(0) 推荐(0)

教程-Delphi中的GExperts搜索代码快捷键

摘要：Shift+Ait+S 打开搜索 Ctrl+Ait+R 打开上次搜索结果阅读全文

posted @ 2016-12-12 17:46 疯狂delphi 阅读(262) 评论(0) 推荐(0)

问题-Ctrl+F7跟踪值时提示“Function to be called, TGGLPolyhedron3d.AsString, was eliminated by linker”

摘要：问题现象：F9运行程序后，选中一个对象，Ctrl+F7跟踪值时，调用对象的某一个方法提示“Function to be called, TGGLPolyhedron3d.AsString, was eliminated by linker”。问题原因：具体原因不明（可能是因为调用的方法从未被使用过阅读全文

posted @ 2016-11-09 14:57 疯狂delphi 阅读(295) 评论(0) 推荐(0)

教程-Delphi调用百度地图API(XE8+WIN7)

摘要：相关资料: 无言 QQ:4252181 实例代码： 1 unit U_map; 2 3 interface 4 // // 5 // COPY BY 无言 QQ:4252181 // 6 // // 7 uses 8 Windows, Messages, SysUtils, Variants, Cl 阅读全文

posted @ 2016-10-28 10:24 疯狂delphi 阅读(1467) 评论(0) 推荐(0)

WebBrowser的各种使用方法(未完待续)(XE8+WIN7)

摘要：相关资料：占时想不起来了，有时间我补上吧。程序下载： http://download.csdn.net/detail/zhujianqiangqq/9666390 实例代码： 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winap 阅读全文

posted @ 2016-10-28 09:57 疯狂delphi 阅读(1465) 评论(0) 推荐(0)

启动程序的同时传参给接收程序（XE8+WIN764）

摘要：相关资料： http://blog.csdn.net/yanjiaye520/article/details/7590252 注意事项： 1.ParamStr(0)是实例自己。 2.传的参数是以空格分看的。 3.“‘2 Hello World”，ParamStr(1) = '2' ；发送窗体： 1 阅读全文

posted @ 2016-10-12 17:07 疯狂delphi 阅读(594) 评论(0) 推荐(0)

给 TTreeView 添加复选框

摘要：1 //1.引用单元 2 uses Commctrl ; 3 4 //2.定义私有过程 5 procedure tvToggleCheckbox(TreeView: TTreeView;Node: TTreeNode;isclick:boolean =false); 6 procedure SetChecked(Node: TTreeNode; Check... 阅读全文

posted @ 2016-09-05 17:51 疯狂delphi 阅读(2999) 评论(0) 推荐(0)

跨进程发送消息数据

摘要：1 //1.发送窗体 2 procedure TForm2.Button1Click(Sender: TObject); 3 var 4 h: HWND; 5 Size: Integer; 6 CopyDataStruct: TCopyDataStruct; 7 begin 8 h := FindWindow(nil, '接收窗口'); { 按标题查找目标窗... 阅读全文

posted @ 2016-09-05 17:47 疯狂delphi 阅读(1584) 评论(0) 推荐(0)

鼠标拖动虚影效果

摘要：PS: 1.form2是主窗体，form1是子窗体，我当时安装的是XE8，新建第一个窗体就是叫form2。 2.事件处理用到了控件（ApplicationEvents1）。 3.源代码下载地址：“https://download.csdn.net/download/zhujianqiangqq/75 阅读全文

posted @ 2016-09-05 17:45 疯狂delphi 阅读(782) 评论(0) 推荐(0)

delphi回调函数

摘要：文章来源： http://anony3721.blog.163.com/blog/static/5119742010866050589/ 一.主单元 1 unit UnMain; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, Sy 阅读全文

posted @ 2016-09-05 17:43 疯狂delphi 阅读(1659) 评论(0) 推荐(0)

单精度格式化函数

摘要：1 //1.定义变量 2 Temp_F: real = 113.05; 3 4 //2.执行函数 5 procedure TForm1.Button1Click(Sender: TObject); 6 begin 7 Edit1.text :=FormatFloat('0.0',Temp_F); 8 end; 9 10 procedure TF... 阅读全文

posted @ 2016-09-05 17:41 疯狂delphi 阅读(564) 评论(0) 推荐(0)

delphi提示错误行号之Assert(断言)

摘要：一、用法:Assert(表达式)1.如果为假 Assert会产生一个EAssertionFailed异常,显示为 Assertion Failed (C:/src/unit1.pas, [size=+0]line 34)2.如果不想再使用这些检查时,可以使用($ASSERTIONS OFF)或($C 阅读全文

posted @ 2016-09-05 17:39 疯狂delphi 阅读(1360) 评论(0) 推荐(0)

随笔分类 - 《21天学通Delphi》