delphi的面向对象编程

                            如何编写自己的组件:如何添加属性显示在object inspect中
unit customcontrol1;

interface

uses
 Windows, Messages, SysUtils, Classes, Controls;

type
 Tcustomcontrol1 = class(Tcustomcontrol)
 private
   { Private declarations }
   FintegerProp:integer;
   Fauthor:string;
   FcharProp:char;
 protected
   { Protected declarations }
 public
   { Public declarations }
 published      //此处的属性显示在 object inspector  中
 property integerprop:integer read FintegerProp write FintegerProp default 100;
 property author:string read Fauthor write Fauthor ;
 property charprop:char read FcharProp write FcharProp ;
 {格式:
    property 属性名:类型 read ... write .... default ;其中default 属性为可选项
   { Published declarations }
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Standard', [Tcustomcontrol1]);
end;

end. 



  
 加入枚举类型的特性
unit Mycustomcontrol;

interface

uses
 Windows, Messages, SysUtils, Classes, Controls;

type
 TEnumProp=(epZero,epOne,epTwo,epThree);   //定义
 TMycustomcontrol = class(Tcustomcontrol)
 private
   { Private declarations }
   FenumProp:TEnumProp;
   FBooleanProp:Boolean;
 protected
   { Protected declarations }
 public
   { Public declarations }
 published
    property EnumProp:TEnumProp read FEnumProp write FEnumProp;
    Property BooleanProp:Boolean read FbooleanProp write FbooleanProp;
   { Published declarations }
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Standard', [TMycustomcontrol]);
end;

end. 

 加入集合类型的特性
unit Mycustomcontrol2;

interface

uses
 Windows, Messages, SysUtils, Classes, Controls;

type
 TsetPropItems=(epZero,epOne,epTwo,epThree);   //定义
 TsetPropOption = set of TsetPropitems;
 Tmycomponent2=class(Tcustomcontrol)
 private
   { Private declarations }
   TOptions:TsetPropOption;

 protected
   { Protected declarations }
 public
   { Public declarations }
 published

    Property Option:TsetPropOption read TOptions write TOptions;
   { Published declarations }
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Standard', [Tmycomponent2]);
end;

end. 

 
如何为Delphi程序添加事件和事件处理器  

如何为Delphi程序添加事件和事件处理器 
河南金融管理学院 
潘汉杰 
---- Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中,虽然Delphi为每个可视化组件都提供了很多属性(Property)和事件(Event),但在实际应用中可能会碰到一些自己需要的特殊事件,这些特殊事件Delphi 又没有提供,这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后,又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。 

---- 在Delphi中,事件实际上是专门化的属性,它是一个过程(procedure)的指针。要添加事件,首先应在所定义的类中说明一个用来指向事件过程的指针,该指针的作用是当事件一旦发生,就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性以及与之关联的事件处理过程指针。 

---- 本例中,FtooBig为定义的事件处理过程指针,OnTooBig为事件属性名。事件处理过程指针FtooBig通过程序的初始化使之指向过程TooBig1。在Delphi的表单(Form1)上放置三个编辑框,分别为Edit1、Edit2和Edit3,放一按钮Button1。程序中设私有整型变量val1、val2和res,变量res用来记录val1和val2的乘积,并用Edit3显示出来。当通过Edit1和Edit2输入的数据有一个大于100时,会触发一个事件,并调用事件处理过程TooBig1显示一个对话框,说明此事件已经发生并已进行处理。源程序代码如下, 该程序在Delphi 3中调试通过。 

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, 
Graphics, Controls, Forms, Dialogs,
 StdCtrls;
type
 TForm1 = class(TForm)
   Edit1: TEdit;    {输入第一个整数}
   Edit2: TEdit;    {输入第二个整数}
   Edit3: TEdit;    {输出前二个整数的积}
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
procedure TooBig1(Sender: TObject);   
 {当事件触发后调用此过程}
   procedure FormCreate(Sender: TObject);
 private
val1,val2,res:integer; {val1和val2存放输入
的两个整数,res存放两数的积}
FTooBig : TNotifyEvent;   {定义一个指向事件
处理器的指针FTooBig}
   { Private declarations }
 public
   { Public declarations }
 published
property  OnTooBig:TNotifyevent read 
FTooBig write FTooBig;{定义事件}
 end;

var
 Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
 val1 := StrToInt(Edit1.Text);
 val2 := StrToInt(Edit2.Text);
 if(val1< 100)and(val2< 100) then
   begin
     res := val1*val2;
     Edit3.Text := IntToStr(res);
   end
 else
   if assigned(FTooBig) then   OnTooBig(Self);
end;

procedure TForm1.TooBig1(Sender: TObject);
begin
Application.MessageBox('Too Big',' Test Event! ',MB_OK);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 val1:=1;
 val2:=1;
 FTooBig := TooBig1;{使事件处理指针指向事件处理器}
end;

end. 

                                

查看回复