RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧

delphi Sender 的用法举例

unitSender;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,CheckLst;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;Button3:TButton;Button4:TBut…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.59

delphi 子界判断的举例

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);private{Privated…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.32

delphi 获取当前光标处颜色的例子

procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);varDC:HDC;XY:Integer;beginX:=Mouse.CursorPos.X;Y:=Mouse.CursorPos.Y;ifKey<>VK_ReturnthenExit;DC:=GetDC(0);Color:=GetPixel(DCXY…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.13.04

delphi 切换大小写的例子

CapLock(True);(*大写*)CapLock(False);(*小写*)//(*键盘大小写锁定*)ProcedureCapLock(bLockIt:boolean);VarLevel:Integer;KeyState:TKeyBoardState;beginLevel:=GetKeyState(VK_CAPITAL);GetKeyboardState(KeyStat…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.07.42

delphi 用拼音首字符检索汉字的源代码

在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息,或在单位的应用程序中查询客户档案或业务资料,这个过程中往往需要输入大量的汉字信息,对于熟悉计算机的人这已经是一件头疼的事,那些不太熟悉计算机…
类别:技巧 标签: 作者:admin 日期:2013-01-06 10.03.04

delphi 设计一个有渐变色的标签

unitMLabel;interfaceusesWindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsStdCtrls;typeTColorStyle=(HorizontalVertical);typeTMLabel=class(TLabel)privateCRedCGreenCBlue:Integer;incRedincGreenin…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.58.46

delphi 转数字为大写金额源代码

functionTForm1.NumToChnStr(Value:Real;ClearZero:Boolean):String;constChnUnit:array[0..13]ofstring=('分','角','元','拾','佰','仟','万','拾','佰','仟','亿','拾','佰','仟');ChnNum:array[0..9]ofstring=('零…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.58.23

Delphi和金山词霸制作批量单词翻译

本人利用Delphi和金山词霸2002特别制作了一个单词批量翻译,并且可以将翻译结果直接保存为RTF文件的程序。其程序界面如下:原理分析:利用“金山词霸2002”的翻译功能,进行单词的翻译,利用Delphi获取“金山词霸200…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.38.01

delphi 将Word嵌入Delphi中

unitMain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,Comobj;typeTForm1=class(TForm)Panel1:TPanel;Panel2:TPanel;Label1:TLabel;Button1:TButt…
类别:技巧 标签: 作者:admin 日期:2013-01-06 09.31.19

delphi2010中DElphi class explorer妙用

delphi2010中view->Delphiclassexplorer,将显示所有类,包括全局变量,而且右键菜单还可以在已有类中新增字段、属性、方法。但是没找到如何新建类,不行的话,就手工吧!
类别:技巧 标签: 作者:admin 日期:2012-12-28 15.40.50

delphi 在消息窗口中显示进度条

动态创建消息窗口,并在窗口中显示一个进度条,在进度条范围内选择按钮unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,ComCtrls;</...
类别:技巧 标签: 作者:admin 日期:2012-12-28 15.38.58

delphi2010 关于Record类型RTTI反射的用途和方法

问题的引入:准备做一个多国语言软件,发现信息变量(都是字符串)数量庞大,如果简单的通过“变量=reads****ing”从ini文件中获取的话,几百个变量就是几百行,这个工作量非常大,而且也不易维护。如果使用RTTI反射…
类别:技巧 标签: 作者:admin 日期:2012-12-28 15.33.32

delphi F1026 File not found: ''QuickRpt.dcu''解决方法

使用delphi2007,安装quickreport后,在使用quickreport时,编译提示:F1026Filenotfound:'QuickRpt.dcu'导致编译无法通过,当然就无法运行了。解决方法:Tools->options->Libraty-win32,添加quickrepotr安装目录到L…
类别:技巧 标签: 作者:admin 日期:2012-06-27 08.49.43

在 Delphi 中使用微软全文翻译的小例子

刚刚从博客园看到有朋友用C#做了这么个东西,我用Delphi尝试了一下.需要先去申请一个AppID:http://www.bing.com/toolbox/bingdeveloper/使用帮助在:http://msdn.microsoft.com/en-us/library/dd576287.aspxusesMsXML;…
类别:技巧 标签: 作者:admin 日期:2011-11-18 22.46.17

delphi NativeXml的中文支持

一般XML的编码格式设置成UTF8比较通用,下面演示使用UTF8编码方式存储和处理包含中文的XML字符串(文件)。1.设置启用内置的widestring支持NativeXml内部使用ANSIstring和UTF8编码的string两种字符串类型。如果要让N…
类别:技巧 标签: 作者:admin 日期:2011-08-25 09.41.46

让delphi2010操作界面回到delphi7模式

在使用delphi2010的过程中,很不习惯它的窗口在一个框框内,感觉很不方便,可能是因为使用delphi7很多年了,已经习惯了delphi7的版面。如何让delphi2010能有delphi7的版面布局呢?答案是肯定的,方法如下:1)在工具…
类别:技巧 标签: 作者:admin 日期:2011-08-25 09.36.39

关于如何发现Delphi程序的内存泄漏

关于如何发现Delphi程序的内存泄漏今天调试一个开源的例子程序,无意中发现一个IDE用来测试内存泄漏的语句。不过应该是Delphi2006以后的版本才能使用。实施方法方法非常简单,在Projectsource中加入如下第一条语句。…
类别:技巧 标签: 作者:admin 日期:2011-08-25 09.09.01

delphi2010 无法继承窗体的bug

delphi2010中有时继承窗体会提示类似“frmBase1isnotavalididentfier”的提示,经过反复研究发现问题出在delphi2010自带的源码格式化工具上,在工程文件的源码中,有类似如下的窗体列表代码:Basein'Form\Base\Base.…
类别:技巧 标签: 作者:admin 日期:2011-08-25 08.52.12

delphi strtodatetime 这个函数在win7下出错

strtodatetime这个函数在win7下出错例如strtodatetime('2010-11-25')在win7下出错,但在xp系统下正常解决方法日期格式不一样,你需要统一日期格式,可以再控制面板中修改,或者用代码实现Delphi(Pascal)codevarsetti…
类别:技巧 标签: 作者:admin 日期:2011-08-19 12.32.18

delphi 检查程序是否在(VM,VPC等)虚拟机运行 delphi(测试可用)

检查程序是否在(VM,VPC等)虚拟机运行delphi(测试可用)functionAnti:LongBool;varm:array[0..2]ofByte;beginasmsidtmend;if(m[1]=$00)and(m[2]=$00)thenResult:=TrueelseResult:=False;end;调用ifAntithenExitProc…
类别:技巧 标签: 作者:admin 日期:2011-08-18 13.58.41