Delphi组件开发教程指南（2）简单扩充TEdit
上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最
基本的方式来创建一个组件！也就是使用Delphi自己的组件开发向导来建立一个新的组件。在这里，我以扩充TEdit为例进行讲解。
那么首先，要介绍的就是如何使用Delphi的组件开发向导了！这个向导在Delphi IDE的Component菜单下的NewComponent打开就是向导了，可以参照如下：
从图上可以看到，我通过向导，我先选择了从组件Tedit往下继承，于是Delphi自动生成了新组件类TEdit1，然后我选择了将本组件注册到
Standard这个控件面板上去，然后保存了单元文件到C:\Test这个目录下！然后点击下一步完成，delphi自动帮我们生成了一个
Edit1.pas的单元文件。这样一个新的基本控件就完成了！此时，就可以在我们的工程中使用TEdit1.Create(nil)这样的语句来创建刚
刚建立的新Edit组件了，只是现在的这个控件与TEdit没有任何功能上的区别，唯一的却别就是仅仅变了变组件的类名称而已！是一个没有任何意义的组
件！下面，我要开始讲解的便是扩充一下这个Edit，使得这个控件具备一些Delphi的TEdit所不具备的功能！
我想一想，扩充几个啥功能呢！貌似Delphi自己的Tedit没有Alignment这个属性哈，那么第一步，就来先为我们刚刚创建的那个新组件增加一
个Alignment属性，可以让用户来设置Edit中文字的对齐方式吧！怎么能设置Edit编辑框的文字的对齐方式呢！这个网上有很多资料的，我们查查
MSDN，可以发现Edit有几种样式ES_LEFT, ES_RIGHT,
ES_CENTER分别用来设置文字的左对齐，右对齐和居中对齐！一般情况下，默认的是左对齐，如果要修改Edit的对齐方式为其他的对齐方式，那么，我
们就需要设置编辑框的样式为新的样式，Windows有一个API函数，专门用于设置其控件的样式的函数为SetWindowLong，如果要在运行时直
接对Delphi的Edit设置对齐方式，就可以用该函数来实现！比如
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_Right);
这一句就能让Edit1的对齐方式变成右对齐，于是，我们可以想象，我们可以在组件内部开放一个属性，用户一设置，就能调用这个代码来执行！所以，我先在我们刚刚生成的那个单元类TEdit1的Published域中添加上一个新的属性
published
{ Published declarations }
&nb
相关文档：
转自大富翁http://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
老陈有一个在外地工作的女儿，不能经常回来，老陈和她通过信件联系。他们的信会被邮递员投递到他们的信箱里。
这和Socket模型非常类似。下面我就以老陈接收信件为例讲解Socket I/O模型。
一：select模型
老陈非常想看到女儿的信。以� ......
1.根据 Delphi 指令参考手册中
说明：
Assigned 函式在参数不为nil时传回True,表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为nil ，无乱的指向某处，这两个种情况，Assigned（指针变量）都不为nil , 函数放回True；
而参数为nil时则传回Fals ......
MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．
MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigator，Document，Vi—sum ......
Delphi TStream 详细介绍
Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和部件)
在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对 ......
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
&nb ......
