在开讲之前，首先，我假设你了解什么是面向对象，什么是类。如果不了解的话，建议先去了解一下相关知识！
在Delphi中，组件，我们可以将它理解为一个个的封装好了的功能对象库，使用这个库，就只用简单的几句代码，甚至仅仅简单的设置几个属性就能实现某些
功能，我们可以将组件想象成日常生活中使用的某些工具，比如说收音机，我们不必了解其内部构造，只用在播放器上点一个收听按钮就能收听广播。其实这不仅仅
是Delphi组件，Delphi的中的各种对象库都是如此，比如TStingList，只用简单几句代码就能实现一些功能，组件与对象库本质相同，唯一
不同的就是组件通过Delphi的IDE接口注册到了IDE中，可以进行可视化的设计，而其他的对象库，需要我们手动创建，然后调用！
上面简单阐述了一下Delphi的组件的某些特性以及与其他对象库的一些区别。下面，咱在说说Delphi的组件的构造层次，说到这个类的层次，有一个非
常有名的Delphi对象层次图的（但是我不晓得在什么地方了，有兴趣的可以自己搜搜看，不看也不影响下面的讲解说明）。上面说了，Delphi的组件其
实也是一个对象库，也就是一个类，在Delphi中所有对象的基类都是TObject，组件的最� ......
上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最
基本的方式来创建一个组件！也就是使用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编辑框控件的一个扩充！但是我们并不能像Delphi自己的TEdit一样，能够
在设计状态下进行设计，而是非得要自己手动创建控件，然后才能使用。这个虽然说也是组件，但是却失去了组件的可设计的方便性，仅仅可作为一个类库来使用。
现在我就来介绍一下，如何让这个组件注册到IDE上，然后让你能够在设计状态下可以设计使用。
在讲注册组件的时候，我们需要先明白Delphi中的包的概念，这里我就不做说明了，不清楚的，可以到Cnpack网站去了解这方面的知识
。在注册组件时，就需要一个设计期间的包文件，然后将我们上次新建的Edit的那个单元文件添加到包中。首先，我们新建一个包文件，然后添加单元文件，具体参考如下：
从图上的操作可以看到，我先新建了一个名字叫做TestPackage的包，然后将Edit1.pas的单元文件添加到这个包里面了，之后编译，安
装了之后，就将控件显示在Standard那个组件栏中了，里面有一个TEdit1的组件，那个就是我们从TEdit继承过来的新组件！然后再看属性编辑
器中就多了Alignment这个属性，设置它，就能设置文字的对齐方式了。
好了，到此为止，这个简单组件就注册完 ......
距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。
再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组件编写的教程指南
过程可能不是和书上按部就班一样的讲解，我的着重点是如何编写一个组件，这个编写的着重点偏向于实现方式，也就是实现一个组件要涉及到的消息还有
Delphi
VCL的一些虚拟方法重载等等，至于有人提到的包的概念，我这里讲解的很粗略，甚至说是没有讲解，其实这个我有小括弧注释，给了一个cnpack的包的说
明文档，那个讲的非常详细的。至于这个系列的文章讲解顺序（有人说应该先建立一个包，然后在添加组件实现单元，然后注册等），而我是先实现了一个组件，然
后才建立的包，其实这个都不是问题的，编写组件的重点是在于组件的实现方式上面，这个包的建立以及注册到IDE上，只要稍微找找相关资料就能明白了，所以
我也就没详细说明！另外有人说咋没讲组件编辑器，呵呵，那是因为还不到时候，看看我这个TEdit的扩充哪里有我自定义的特 ......
在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类，通过类方法即可访问此类的对象数
//=========================================
unit StaticVarTestU;
interface
type
TStaticVarClass = class
public
//constructor
constructor Create();
destructor Destroy; override;
//类方法，取得对象的计数
class function ObjectCount: integer;
protected
private
end;
implementation
Var
LObjCount: integer;
{ TStaticVarClass }
constructor TStaticVarClass.Create;
begin
inc(LObjCount); //使用局部变量
end;
destructor TStaticVarClass.Destroy;
begin
dec(LObjCount); //使用局部变量
inherited;
end;
class function TStaticVarClass.ObjectCount: integer;
begin
Result := LObjCount; //返回局部变量
end;
initialization
LObjC ......
在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类，通过类方法即可访问此类的对象数
//=========================================
unit StaticVarTestU;
interface
type
TStaticVarClass = class
public
//constructor
constructor Create();
destructor Destroy; override;
//类方法，取得对象的计数
class function ObjectCount: integer;
protected
private
end;
implementation
Var
LObjCount: integer;
{ TStaticVarClass }
constructor TStaticVarClass.Create;
begin
inc(LObjCount); //使用局部变量
end;
destructor TStaticVarClass.Destroy;
begin
dec(LObjCount); //使用局部变量
inherited;
end;
class function TStaticVarClass.ObjectCount: integer;
begin
Result := LObjCount; //返回局部变量
end;
initialization
LObjC ......
在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类，通过类方法即可访问此类的对象数
//=========================================
unit StaticVarTestU;
interface
type
TStaticVarClass = class
public
//constructor
constructor Create();
destructor Destroy; override;
//类方法，取得对象的计数
class function ObjectCount: integer;
protected
private
end;
implementation
Var
LObjCount: integer;
{ TStaticVarClass }
constructor TStaticVarClass.Create;
begin
inc(LObjCount); //使用局部变量
end;
destructor TStaticVarClass.Destroy;
begin
dec(LObjCount); //使用局部变量
inherited;
end;
class function TStaticVarClass.ObjectCount: integer;
begin
Result := LObjCount; //返回局部变量
end;
initialization
LObjC ......
相对用第三方控件，CDO发送邮件还是很简洁方便的
注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;
单元引用ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'<XXXX@163.com>'; //加号前面为发件人显示名称，加号后面为发件人邮箱；
vcdomessage.to:='XXXX@qq.com'; //收信人的邮箱
vcdomessage.Subject:='测试';
vcdomessage.TextBody:='发送成功';
vcdomessage.addAttachment('XXXX'); //附件，引号内为 ......
最新文章 : delphi