摘要：事件对象就像一个开关：它只有两种状态---开和关。当一个事件处于”开”状态，我们称其为”有信号”否则称为”无信号”。可以在一个线程的执行函数中创建一个事件对象，然后观察它的状态，如果是”无信号”就让该线程睡眠，这样该线程占用的CPU时间就比较少。 产生事件对象的函数如下：HANDLE CreateEve... 阅读全文

摘要：使用存储过程的一般步骤要访问服务器上的存储过程，一般是这么几个步骤：第一步，把一个TStoredProc构件放到窗体或数据模块上。第二步，设置DatabaseName属性指定一个数据库，可以设为BDE别名或者应用程序专用的别名(如果用TDatabase构件连接数据库的话)。第三步，设置StoredProcName属性指定存储过程的名称。如果前面正确设置了DatabaseName属性，就可以从一个... 阅读全文

摘要：摘自http://www.delphibbs.com/keylife/iblog_show.asp?xid=27298 1 序言 2 DBGridEh（增强型表格组件）功能详解 3 应用实例 3.1 定制标题行 3.1.1 制作复杂标题行 3.1.2 标题行显示图片 3.1.3 自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序 3.2 定制表格底部（footer）区域的汇... 阅读全文

摘要：1、OOP OOP的英文全称是Object Oriented Programming，翻译过来就是面向对象编程。OOP是一种非常重要的编程思想。也许你会对这种抽象的东西不感兴趣，可是几乎任何一个高手都会告诉你：“语言并不重要，重要的是编程思想。” 大家知道，Delphi的语言基础是Object Pascal。这是Borland在传统的Pascal语言中增加了面向对象的特性后发展而成，... 阅读全文

摘要：Sender--意义：指本对象。Sender在什么对象相关代码里，那么Sender就是什么。 Self--意义：指本类，也就是Self被引用的类。比如若在类TMyClass内引用了Self，那么Self=TMyClass. self既然代表对象自己，那么难道自己还用定义吗？看下边的代码： procedure TForm1.button1click(sender: TObject); var a: ... 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: ... 阅读全文

摘要：procedure TF_cusorder.Button1Click(Sender: TObject); var myexcel:variant; i,j:integer; workbook:olevariant; worksheet:olevariant; begin inherited; try Screen.Cursor:=crHourGlass; m... 阅读全文

摘要：PTNodeInfo=^TNodeInfo; TNodeInfo=record id,preId,text:string; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CreateTree1; procedure CreateTree(Pre:string;preNode:TTreeN... 阅读全文