网上文摘 小说 Flash游戏 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置:Delphi园地技巧文章参考资料 → Delphi单元文件详解
Delphi单元文件详解
日期:2007年12月20日 作者:hottey 人气: 查看:[大字体 中字体 小字体]

1.库单元文件头:其中声明了库单元的名字.

2.Interface部分:

  由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的.

  在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation部分给出的.

  Interface部分又可分为多个可选部分,分别为单元引入部分(uses),常量说明部分,类型说明部分,变量说明部分,过程和函数声明部分.

3.Implementation部分:

  Implementation部分分为两部分.一部分是声明部分,包括单元引用,常量,类型,变量,过程和函数的声明,这一点和Interface部分相似.

区别有两点:

  (1):在Implementation部分声明的只对本单元是公共的,可见的,其他单元即使引用了该单元,也不能访问它们.

  (2):在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.

4.Initialization部分:

  用于初始化该库单元,此处的代码最先执行.如果多个库单元中包含Initialization部分,那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的.

5.Finalization部分:

  通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.


unit MainFrm; {库单元文件头}

interface     {接口部分}

uses        
  Windows, Forms, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure MyButtonClick(sender:TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation  {实现部分}

//uses

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyButton : TButton;
begin



  MyButton := TButton.Create(self);
  MyButton.Parent := self;
//告诉创建方法在Form1中显示MyButton
  MyButton.Caption := '测试一';
  MyButton.OnClick := MyButtonClick;
  MyButton.Show;
end;

procedure TForm1.MyButtonClick(sender:TObject);
begin
  Application.MessageBox(PAnsiChar(TButton(sender).Caption)
                        ,'Test Component');
  TButton(sender).Caption := '测试二';
end;

initialization  {可选的初始化部分}
  //
finalization    {结束部分}
  //

end.            {End结束符}

6.Sender参数:

  看上面程序代码发现事件处理程序的参数中,至少含有一个参数Sender,它代表触发事件处理程序的组件,有了Sender参数,可以使多个组件共用相同的事件处理程序.

7.Self参数:

  Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,Self即指窗体,如果在编写一个类或是一个组件,则Self指该类或该组件.我们在过程和函数的声明中可以看出Self是代表哪个组件,即Self代表"."号之前的组件.另外应注意,Self只能用在类方法中,而不能用在过程或函数中.如下列是错误的:


Function a1(B:Integer):Integer;
begin
...
Button := TButton.Create(self);
...
end;


8.Parent和Owner的区别:

  (1):Parent属性是指组件的包容器,组件只能在此范围内显示和移动.

  (2):Owner属性是指组件的所有者,它负责组件的创建和释放.Create方法应带有表示组件
所有者的参数.

  (3):它们都是运行阶段的属性,只能通过代码设置.

(出处:http://asp.itdrp.com/hottey)

相关文章:
·在DBGrid中,怎样才能让我能点击一个单元格选择整行,又可以编辑单元格的内容呢?
·防止应用程序出现多个实例的通用单元 - UniqueInstance.pas
·类成员函数转 Windows 回调函数通用代码单元 - ClassCallback.pas
·TStringGrid中实现网格单元Hint功能
·Delphi中控制DBGrid控件的单元格显示
·DBGrid单元格画圆圈
·DBGrid单元格画圆圈
·Delphi单元测试工具Dunit介绍
·Proxies单元解决方法
·dsgnintf.pas单元在D6及D7中找不到的解决方法
 → 特别推荐
 → 热点TOP10
关于我们 | 广告服务 | 发布资源 | 联系站长 Copyright © 2002-2006 Delphi园地 All Rights Reserved