随笔分类 -  Delphi

回车跳到下一个EDIT
摘要:1.按下方法procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif Key=VK_RETURN thenSelectNext(ActiveControl,true,true);e 阅读全文

posted @ 2018-06-16 23:19 癫狂编程 阅读(262) 评论(0) 推荐(0) 编辑

远程控制篇:用Delphi模拟键盘输入/鼠标点击
摘要:模拟键盘我们用Keybd_event这个api函数,模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件,也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起),但是没有直接用这个函数方便。Ke 阅读全文

posted @ 2018-06-16 23:07 癫狂编程 阅读(736) 评论(0) 推荐(0) 编辑

SQL的拼接语句在DELPHI中怎么写
摘要:SQL 语句的拼接,关键点在于对引号的处理上。 在 delphi 的语法中,使用单引号做字符串的标志符。因此,当遇到 SQL 语句中字符串标识量编写的时候,需要用两个单引号来代替实际的引号。 举例: 看起来单引号太多,显得挺乱。 其实可以用其他手段来完成: 1、使用 QuotedStr 函数 2、使 阅读全文

posted @ 2018-06-09 12:27 癫狂编程 阅读(1251) 评论(0) 推荐(0) 编辑

Delphi DbGridEh实现表格没有内容的渐变效果
摘要:OptionsEh = dghExtendVertLines 就会有这个效果, 去掉就会没有这个效果 阅读全文

posted @ 2018-06-06 18:46 癫狂编程 阅读(210) 评论(0) 推荐(0) 编辑

大家好,请问在DELPHI中#13和#10是表示什么含义的?
摘要:#13: 表示"回车"#10: 表示"换行" ASCII码 Delphi字符 C程序 含义 10 #10 '\n' 换行 13 #13 '\r' 回车Delphi里用#13#10表示换行符 ASCII#13=Chr(13) 这不是DELPHI规定的, 微软的Txt文件, 行结束就是 #13#10 阅读全文

posted @ 2018-06-05 00:42 癫狂编程 阅读(5287) 评论(0) 推荐(0) 编辑

Delphi 组件渐进开发浅谈(二)——双简合璧
摘要:2.双简合璧2.1.带有T[x]Label的T[x]Edit组件 请允许我用[x]的书写方式来表示不同的对象。因为随后将大量提及TLabeledEdit与TTntLabeledEdit、TCustomLabeledEdit与TTntCustomLabeledEdit这样及其雷同的类。2.2.分析T[ 阅读全文

posted @ 2018-05-16 23:33 癫狂编程 阅读(587) 评论(0) 推荐(0) 编辑

Delphi 组件渐进开发浅谈(一)——由简入繁
摘要:最近业余时间在写游戏修改器玩,对于Delphi自带的组件总觉得差强人意,需要书写大量冗余代码,如果大量使用第三方组件,在以后的移植和与他人交互时也不是很方便,因此便产生了自己封装组件的想法。 实际上这个想法在很久以前(大概04年写第一个修改器的时候)就有了,一直没有闲暇时间去做,而工作上类似的组件也 阅读全文

posted @ 2018-05-16 23:32 癫狂编程 阅读(474) 评论(0) 推荐(0) 编辑

Delphi中的DBGrid控件
摘要:在Delphi中,DBGrid控件是一个开发数据库软件不能不使用的控件,其功能非常强大,可以配合SQL语句实现几乎所有数据报表的显示,操作也非常简单,属性、过程、事件等都非常直观,但是使用中,有时侯还是需要一些其他功能,例如打印、斑马纹显示、将DBGrid中的数据转存到Excel97中等等。这就需要 阅读全文

posted @ 2018-05-16 23:20 癫狂编程 阅读(3630) 评论(0) 推荐(0) 编辑

如何让TEdit在获取输入焦点后selectAll?
摘要:关于网友提出的“ 如何让TEdit在获取输入焦点后selectAll?”问题疑问,本网通过在网上对“ 如何让TEdit在获取输入焦点后selectAll?”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下: 问题: 如何让TEdit在获取输入焦点后selectAll?描述: 我在OnE 阅读全文

posted @ 2018-05-10 12:16 癫狂编程 阅读(358) 评论(0) 推荐(0) 编辑

如何在DBGrid中能支持多项记录的选择
摘要:When you add [dgMultiSelect] to the Options property of a DBGrid, you give yourself the ability to select multiple records within the grid. The record 阅读全文

posted @ 2018-01-16 01:37 癫狂编程 阅读(162) 评论(0) 推荐(0) 编辑

Delphi 判断一个字符串是否为数字
摘要://函 数 名: IsDigit//返 回 值: boolean//日 期:2011-03-01//参 数: String//功 能: 判断一个字符串是否为数字//作 者:liubin//******************************************************** 阅读全文

posted @ 2018-01-15 23:44 癫狂编程 阅读(2886) 评论(0) 推荐(0) 编辑

理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
摘要://抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代. {下面就定义了两个抽象方法} TMyClass = class(TObject) procedure Proc1; virtual; abstract; {抽象方法首先应该是一个虚方法或动态方法} function Fun: string; dynamic; abst... 阅读全文

posted @ 2018-01-15 05:01 癫狂编程 阅读(202) 评论(0) 推荐(0) 编辑

动态生成lookup字段
摘要:var i: Integer;begin //ADOQuery已打开 //在数据集打开的情况下新增加一个字段 with Self.ADOQuery1 do begin TDataSetDesigner.Create(Self.ADOQuery1); try Designer.BeginDesign; 阅读全文

posted @ 2018-01-14 16:28 癫狂编程 阅读(316) 评论(0) 推荐(0) 编辑

Delphi报的错误
摘要:引入单元时提示Unit 'Unit1' already uses all the units in the project. 可能是没有添加环境变量造成的,需要手动输入代码引用单元。 和Environment Variables选项有关。 阅读全文

posted @ 2018-01-10 17:06 癫狂编程 阅读(176) 评论(0) 推荐(0) 编辑

Cannot create file"C:\Users\LML\AppData\Local\Temp\EditorLineEnds.ttr"。另一个程序正在使用此文件,进程无法访问。
摘要:不能二次启动,每次开机第一次都ok,出于习惯,总是想试试第二次打开软件是否正常,结果不出所料,出现了“Cannot create file"C:\Users\LML\AppData\Local\Temp\EditorLineEnds.ttr"。另一个程序正在使用此文件,进程无法访问。” 后来采用了这 阅读全文

posted @ 2018-01-10 16:19 癫狂编程 阅读(803) 评论(0) 推荐(0) 编辑

如何在数据表中存取图片 - 回复 "三足乌" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2009/05/28/1491186.html#1801853准备工作:1、在空白窗体上添加: ClientDataSet1、Button12、激活窗体的 OnCreate 事件、激活 Button1 的 OnClic 阅读全文

posted @ 2018-01-07 23:20 癫狂编程 阅读(274) 评论(0) 推荐(0) 编辑

使用 TClientDataSet(1)
摘要:本例效果图: 代码文件: 窗体文件: 阅读全文

posted @ 2018-01-07 23:19 癫狂编程 阅读(455) 评论(0) 推荐(0) 编辑

Delphi下使用指针的简单总结
摘要:由于最近公司太忙,好久没有更新我的BLOG了。原来想着写写关于HOOK驱动的文章,可是最后想想好久已经没有做驱动的东西了,怕写出来有错误,于是作罢。开发游戏也有一段时间了,发现使用DELPHI来开发网络游戏不了解DELPHI下指针的使用是完全不行的。所以今天我简单总结以下我使用DELPHI指针的心得 阅读全文

posted @ 2018-01-07 00:57 癫狂编程 阅读(233) 评论(0) 推荐(0) 编辑

新人请问,怎么获取类成员函数的指针
摘要:新人请教,如何获取类成员函数的指针?public procedure TestAddress; procedure ShowAddress;end;......procedure TTest.testAddress;begin ...end;procedure TTest.ShowAddress;v 阅读全文

posted @ 2018-01-06 21:06 癫狂编程 阅读(336) 评论(0) 推荐(0) 编辑

Delphi中ClientDataSet.FieldDefs 的 FieldDefs是哪两个单词的缩写?
摘要:field defined定义的字段 阅读全文

posted @ 2017-12-24 23:12 癫狂编程 阅读(504) 评论(0) 推荐(0) 编辑

导航

好的代码像粥一样,都是用时间熬出来的