匿名函数是用Interface来实现的,具体细节可以看http://www.raysoftware.cn/?p=38匿名函数还是非常方便的.比如自己封装的异步调用.Async(procedure(AParam : TValue)      begin      end,       procedure (AParam : TValue; AResult: TValue)       begin       end );第一个匿名函数,第一个是在线程内执行的,第二个是当异步执行完的回调,在主线程执…

delphi cxgrid 使用方法1.绑定数据 方法 cxGrid1DBTableView1.DataController.DataSource:=DataSource12.去掉"Drag   a   column   header   here   to   group   by   that   column"方法cxGrid1DBTableView1.OptionsView.GroupByBox置为False3.去掉表头下三角数据 方法cxGrid1DBTableView1.O…

方法是属于一个给定对象的过程和函数,方法反映的是对象的行为而不是数据,前一篇提到的对象的两个重要的方法:构造方法和析构方法. 为了使对象能执行各种功能,你能在对象中定制方法 创建一个方法用两个步骤,首先在对象类型的声明中声明这个方法.然后再用代码定义方法.下面的代码就演示了声明和定义一个方法的步骤 type TBoogieNights = class Dance: Boolean; Procedure DoTheHustle; end; procedure TBoogieNights.DoThe…

这篇文章主要介绍了Delphi基本图像处理方法,实例汇总了Delphi操作图像实现浮雕.反色.模糊.翻转等常用效果的方法,非常具有实用价值,需要的朋友可以参考下   本文实例汇总了Delphi基本图像处理方法.分享给大家供大家参考.具体分析如下: //浮雕 procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload; var i, j, Gray, Azimuthvalue, R, G, B: integer;…

孤荷凌寒自学python第二十四天python类中隐藏的私有方法探秘 (完整学习过程屏幕记录视频地址在文末,手写笔记在文末) 今天发现了python的类中隐藏着一些特殊的私有方法. 这些私有方法不管我们定义类时是否在类的内部代码块中定义过它们,这些私有方法都是存在的.比如已经知道的 __init__ 方法就是其中一个. 一.__str__ 此方法将输出在本身的相关信息文本. 测试: class ghlh(object): name='孤荷凌寒' qq='578652607' newghlh=gh…

应恢弘之约,写了一个对其发布的匿名函数动态绑定到事件的封装,代码如下: type TAnonEvent=class public class function Wrap<T1,T2>(OnEvent:T1):T2; end; { TAnonEvent } class function TAnonEvent.Wrap<T1,T2>(OnEvent: T1):T2; var Addr:Pointer; AMethod:PMethod; begin Addr:=PPointer(@OnE…

[转]Delphi GDI+ 安装方法转自:万一博客(http://www.cnblogs.com/del/)GDI+ 是 Windows 的一个函数库, 来自 Windows\System32\GDIPlus.dll, 其中包含了 610 个函数. 在 Delphi 中使用需要先下载安装 GDI+ for Delphi(这用于 2006.2007 Win32 的版本). 提供一个新的下载: http://files.cnblogs.com/del/GDIplusNew.rar ; 上面那个的…

首发在 ①FireMonkey[移动开发] 16523232 欢迎使用 FMX 开发手机程序的高手来访. 注意:如果您看了本文,翻译了 JNI,请发布到本群共享一份.不同意本规定的,请立即删除本文.凡是看了的,就表示您同意本规定. 请大家从群共享下载(①FireMonkey[移动开发] 16523232)某某某 源代码 带调用非官方 JNI 示例.zip里头的Androidapi.JNI.TelephonyGemini.pas就是我自己转的接口. 或者重启你的手机 源代码 V1.1里头也有一些转…

TDataSet控件以及它的继承控件,例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据.程序首先必须使用SQL命令从后端数据库中取得数据并且形成结果数据集,然后才使用Locate方法查寻数据. 当使用Locate方法查寻数据时,开发人员可以使用任何的字段条件来查寻,而无须理会这个字段是不是索引字段.当然,当开发人员使用索引字段来查寻数据时,Locate会直接使用索引来帮助查寻,因此速度会非常快速.如果开发人员使用非索引字段查寻数据,…

fastscript调用Delphi过程:  1． 先创建事件处理方法:TfsCallMethodEvent 2． 然后再用调用TfsScript.AddMethod方法,第一个参数为Delphi方法的语法,第二个参数为TfsCallMethodEvent链接的一个句柄. 如在Delphi有一个过程为DelphiFunc, ….. procedure TForm1.DelphiFunc(s: String; i: Integer);  begin    ShowMessage(s + ', ' …

内容居中(属性) alignment->tacenter mome控件 禁用最大化(属性) 窗体-> BorderIcons属性-> biMaximize-> False 让鼠标无法改变窗体大小(属性) 窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度 窗体-> Constraints属性->MaxWidth和MinWidth->设置相同就限制鼠标改变窗体的宽度 =========…

1.关闭RTTI反射机制  自从Delphi2010中引入了新的RTTI反射机制后,编译出来的程序会变得很大,这是因为默认情况下 Delphi2010 给所有类都加上了反射机制.而我们的工程并不每每都需要使用到这个功能,所以对于不需要使用的地方,我们可以简单的用下面的方法禁用RTTI反射,从而大大减小文件体积.  禁用的方法很简单,就是要在工程(dpr文件中.Delphi2010下项目文件是dproj文件,但dpr文件仍然是默认的编写代码的项目文件)的Uses语句前添加下面的定义就可以了:  {…

取文件名 ExtractFileName(FileName); 取文件扩展名: ExtractFileExt(filename); 取文件名,不带扩展名: 方法一:   Function ExtractFileNameNoExt(FileString: String): String;   Var   FileWithExtString: String;   FileExtString: String;   LenExt: Integer;   LenNameWithExt: Integer;…

delphi如何用webbrowser模拟登录网站? 我们就以如何登录博客园来做示例: 1.要登入一个网站,首先要获取网页的源代码,我们可以通过网页菜单--查看--查看源代码来获取. 2.我们找到登录部分的代码:                         <div id="Heading">登录到博客园  <a href="/register.aspx?ReturnUrl=http://home.cnblogs.com/" title=&qu…

1.webbroser介绍 该组件是一个浏览器组件,可以显示一个指定地址的网页.设置网页打开时的主页以及对网页进行相关的操作,同时也可以对HTML文件进行剪切.复制.粘贴.删除等操作.该 组件在Internet组件页中,属于TWebbrowser类.  它放在程序当中,可以像操作网页一样操作webbrowser控件. 2.webbrowser有哪些应用 webbrowser目前大多数都是完成自动提交或定时处理某种操作,例如:  1.网页数据采集 ,从别人的论坛里面把帖子采集出来,放到我们的论坛里…

目前主流的delphi下的正则表达式,应该是 PerlRegEx . 官方网站: http://www.regular-expressions.info/delphi.html    直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip 安装方法(我使用的delphi版本是 delphi2007): 1.先把解压的 TPerlRegEx 文件夹放在 Delphi 的根目录下的 Imports 目录中. 2.目前最新 F…

我安装的是Delphi.XE2.RTM.v16.0.4256.43595.Lite.v5.0 ,安装完后打开显示是15天试用. 退出XE2后把C:\Program Files\Embarcadero\RAD Studio\9.0\License 文件夹删除. 再打开XE2就会出现注册窗口,如下图: 把Registration Code里的7022079复制出来(不要关闭注册窗口!). 打开注册机把7022079粘贴到Registration Code栏里,然后点击Generate serial获…

心血来潮,为了实现更好的通用性和封装性,需要把类方法作为回调函数,搜得一篇好文,节选转发.命名似乎应该是MethodToCallback才合适,可惜调试时总是报错,debugging. 原文地址:http://blog.csdn.net/linzhengqun/article/details/1451088       Win32的API有一些需要回调函数,说白了就是函数指针,比如钩子,列举窗口等等.如果我们要对这些技术进行面向对象的封装,就要遇到一些难题.拿钩子来说,假设我们要封装一个键盘钩子…

1.webbroser介绍 该组件是一个浏览器组件,可以显示一个指定地址的网页.设置网页打开时的主页以及对网页进行相关的操作,同时也可以对HTML文件进行剪切.复制.粘贴.删除等操作.该 组件在Internet组件页中,属于TWebbrowser类.  它放在程序当中,可以像操作网页一样操作webbrowser控件. 2.webbrowser有哪些应用 webbrowser目前大多数都是完成自动提交或定时处理某种操作,例如:   1.网页数据采集 ,从别人的论坛里面把帖子采集出来,放到我们的论坛…

心血来潮,为了实现更好的通用性和封装性,需要把类方法作为回调函数,搜得一篇好文,节选转发.命名似乎应该是MethodToCallback才合适,可惜调试时总是报错,debugging. 原文地址:http://blog.csdn.net/linzhengqun/article/details/1451088       Win32的API有一些需要回调函数,说白了就是函数指针,比如钩子,列举窗口等等.如果我们要对这些技术进行面向对象的封装,就要遇到一些难题.拿钩子来说,假设我们要封装一个键盘钩子…

(最近记忆力真的不行了,装了很多遍,过段时间重装delphi又不记得了,又要折腾,现在先记录下来,留给下次翻) 1.下载安装包,这里提供一个百度云盘共享链接,版本为fastreport5: https://pan.baidu.com/s/1zLsJBtHgu6cAJWyjpkl8ug 2.解压安装包,打开文件夹,里面有个recompile.exe文件,运行,按照下图选择,然后点击Complile,最后exit 3.打开Delphi XE a.添加环境变量:菜单"Tools"->&…

写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下procedure writeWorkLog(sqlstr: string);var filev: TextFile;  ss: string;begin  sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr;  ss:='c:\ErpRunLog.txt';  if FileExists(ss) then  begin    AssignFile(filev…

uses windows,menus; ..... //声明 HotKey_Key: Word; HotKey_Shift: Word; procedure WMHotKey(var msg : Tmessage); message WM_HOTKEY; ...... function ShiftStateToWord(Shift:TShiftState): Word; begin if ssShift in Shift then Result :=MOD_SHIFT else Result :…

ParamStr(0) 代表程序的路径, ParamStr(1) 代表程序的设置的参数…

http://www.cnblogs.com/del/category/114896.html…

…

Delphi2010之后的RTTI做了很大休整,现在用起来很爽了哦.甚至可以获取某些类的内部私有单元,然后为其赋值!讲这个RTTI增强的,可以参考网上的多个博客内容,我列举一下:Delphi2010RTTI的增强Delphi的Anymouse方法探秘万一的Rtti系列 我这里的主要目的是挂钩某些内部私有事件,然后增加上一些自己的处理过程,这里我以TMenuItem的私有内部事件FOnChange作为例程.这个私有事件在菜单内部绑定,我们平常状态下,在外部无法更改!但是XE之后这个问题不在存在,使…

Delphi2010之后的RTTI做了很大休整,现在用起来很爽了哦.甚至可以获取某些类的内部私有单元,然后为其赋值!讲这个RTTI增强的,可以参考网上的多个博客内容,我列举一下: Delphi2010RTTI的增强 Delphi的Anymouse方法探秘 万一的Rtti系列 我这里的主要目的是挂钩某些内部私有事件,然后增加上一些自己的处理过程,这里我以TMenuItem的私有内部事件FOnChange作为例程. 这个私有事件在菜单内部绑定,我们平常状态下,在外部无法更改!但是XE之后这个问题不在…

Delphi动态事件深入分析 2009-2-7 作者:不得闲核心提示:本实验证明了在类中方法的调用时候,所有的方法都隐含了一个Self参数,并且该参数作为对象方法的第一个参数传递... 首先做一个空窗体,放入一Button.在implementation下面声明两个方法如下: // 外部方法,只声明一个参数,此时按照标准的对象内部事件方法TNotifyEvent声明,此声明中,Sender则对应为产生该事件的对象指针. procedure ExtClick1(Sender: TObject);…

Delphi是市场上最好的RAD工具,但是现在C++占据着主导地位,有时针对一个问题很难找到Delphi或Pascal的解决方案.可是却可能找到了一个相关的C++类.本文描述几种在Delphi代码中使用C++类的方法. Delphi is one of the greatest RAD tools on the market, but it in this currently C++-dominated world, it can sometimes be hard to find a Delp…