疯狂delphi - 博客园

开源说明图

摘要：阅读全文

posted @ 2016-09-19 09:45 疯狂delphi 阅读(270) 评论(0) 推荐(0) 编辑

Android问题-打开DelphiXE8与DelphiXE10新建一个空工程提示"out of memory"

摘要：错误信息： [DCC Error] E2597 d:\XE8\Embarcadero\Studio\16.0\PlatformSDKs\android-ndk-r9c\toolchains\arm-linux-androideabi-4.6\prebuilt\windows\bin\arm-linu 阅读全文

posted @ 2016-09-18 18:41 疯狂delphi 阅读(1111) 评论(0) 推荐(0) 编辑

BAT-使用BAT生成快捷方式

摘要： @( echo [InternetShortcut] echo URL=C:\Windows\System32\calc.exe echo IconIndex=0 echo IconFile=C:\Windows\System32\calc.exe echo IDList= echo HotKey= 阅读全文

posted @ 2016-09-14 10:19 疯狂delphi 阅读(557) 评论(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 阅读(2977) 评论(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 阅读(1560) 评论(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 阅读(765) 评论(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 阅读(1632) 评论(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 阅读(546) 评论(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 阅读(1307) 评论(0) 推荐(0) 编辑

回车跳到下一个EDIT

摘要： 1.按下方法procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key=VK_RETURN then SelectNext(ActiveControl,true,true 阅读全文

posted @ 2016-09-05 17:37 疯狂delphi 阅读(2424) 评论(0) 推荐(0) 编辑