delphi 动态绑定代码都某个控件 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Rtti.TRttiType_(Delphi)Button16第一次是绑定代码,第二次就是执行 procedure TForm2.Button16Click(Sender: TObject); var aMethod:tMethod; begin aMethod.Code:=self.MethodAddress('Button1Click'); aMe…

DIOCP组件(Delphi IOCP)代码阅读之ADO内存表 代码中有 class procedure TADOTools.loadFromStream(pvDataSet: TCustomADODataSet; pvStream: TStream); var AR:_Recordset; begin AR:=_Recordset(CoRecordset.Create); pvStream.Position:=0; AR.Open(TStreamAdapter.Create(pvStream)…

1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml') 2.DisableControls EnableControls ClientDataSet.DisableControls; ... for I := 0 to 10000 do begin ClientDataSet.Ap…

一.系统规划 1.1 项目背景介绍 在奖学金评比过程中,学生综合测评是学校普遍采用的评比手段.对学生实施综合素质测评的目的在于正确评价学生的综合素质,为评奖学金提供依据,实现学生教育管理工作的标准化.制度化和科学化,引导和促进学生德.智.体.美全面发展. 1.2 现存问题及系统目标 目前我国普遍高校学生奖学金评比还停留在纸质的阶段,许多工作需要传统的手工操作,这不仅浪费了大量的人力物力资源,而且由于人工管理存在着许多不可控因素,导致学生奖学金评比操作不规范,测评结果不全面,不能客观准确地反应学生…

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;…

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;…

################################属性 设置################################################字体设置{//---------------------------------------------------------------------------------------字体名称  <FONT face=微软雅黑>This A Text</FONT>字体大小  <FONT size=1>…

在windows系统中,可以通过Regsvr32来实现注册ocx或者dl, 编程时,调用Regsvr32来注册,却不能正常执行.尤其是在Win7系统中,需要管理员身份才能运行. 使用下面的代码则能正常注册. //注册 function RegisterDllServer(FileName: string): boolean; var nDllAddr: integer; bstr: string; ProcAddr: Pointer; str: PAnsiChar; begin Result :…

TO-DO List是一项非常好用的功能.采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等.今天来不及完成的,明天上班就可以很快的找到任务所在的位置. 打开TODOLIST:点击菜单[View]--> 选择菜单[To-Do List] 显示窗口内容有: Action Item:任务项: !:                优先级 Module:       所属模块 Owner:        所有者 Category:     种类 右键…

http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, gdipapi, gdipobj, Menus, StdCtrls;  type   TForm1 = class(TForm)…