在Delphi 的数据集控件中，提供了类似关系数据库管理系统 中触发器 功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件，能够实现"程序级的触发器"功能，以加强数据的完整性检验。 以Delphi中表数据集为例，其相应的"触发器类"事件： 事件名称 说明 Befo...

2008-04-09 04:18:22

Delphi5 .0是非常优秀的RAD 开发工具，越来越多的人开始认识到这一点并转而使用它，但它也不是完美 无缺的，实际上通过手工优化可以极大的提高它为我们工作的效率，我通过实践摸索出一些经验，借电脑报一角与大家分享： 一：实现控件面板的平滑滚动： 安装过许多控件的...

2008-04-09 04:18:22

1. 取得TMemo 控件 当前光标的行和列信息到Tpoint中 function ReadCursorPos(SourceMemo: TMemo): TPoint; var Point : TPoint; begin point. y := SendMessage (SourceMemo.Handle , EM_LINEFROMCHAR,SourceMemo.SelStart,0); point.x := SourceMemo.SelStart- SendMe...

2008-04-09 04:18:19

Delphi之三十六计 之输入处理篇 Delphi是Borland公司开发的可视化开发系统，它基于Windows 95/98/NT,采用高度结构化的Object Pascal语言，具有结构清晰、高效优化的特点。尤其，最新版 Delphi5.0 更以其良好的可视化应用程序开发环境以及其强大的可扩展数据库功能而倍...

2008-04-09 04:18:18

1．最简单最有效实现一个程序一次开机 只运行一个实例 ，用于限制版或注册版；稍加修改可知是否已有本程序的实例在运行： //在窗体的OnShow事件中书写如下代码 ： Const AtomStr = "OnlyOnce"; ReMind = "此程序版本一次开机只能运行一次,请注册后再使用！"; var atom...

2008-04-09 04:18:18

1．读硬盘序列号 function GetDiskSerial(DiskChar: Char): string; var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char; begin result := ""; if GetVolumeInformation(PChar(diskchar ":"), Buffer, SizeOf (Buffer), SerialNum, a, b, nil, 0...

2008-04-09 04:18:17

1．为MDI 窗体客户区填充位图 //在主窗体中添加Image1控件 //申明 private FClientInstance : TFarProc; FPrevClientProc : TFarProc; procedure ClientWndProc(var Message: Tmessage); //------------------------------ procedure TMainFrm.ClientWndProc(var Messa...

2008-04-09 04:18:16

一.旧pascal 文件类型 用文件变量 表示的文件类型 ,比如 F:text,F:File . 定义了三类:有类型,无类型,字符类型以及一些Delphi 的文件操作函数.比如:AssignPrn,Writeln,这些文件类和Windows文件句柄不兼容 二.Windows文件句柄(handle ) 面向对象 的Pascal的文件句柄封装...

2008-04-09 04:18:16

?Delphi 是新一代可视化 开发工具，它具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发 工具技术的先驱者，它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点，许多程序员选择Delphi 作为开发工具编制各种应用程序。但...

2008-04-09 04:18:15

使用Dbedit等控件时，用户必须全面安排各字段的位置，虽然能够达到美观的效果，但是，如果字段数多，无疑是很麻烦的。如果采用DBGrid ，无论多少个字段，只用一个控件就够了，简单倒是简单，但是各字段是一字排列 的，使用起来有点不方便。对于一般的用户来说，采用表...

2008-04-09 04:18:14