实例讲解Delphi中的类

1、打开Delphi7集成开发环境，查看默认工程的Form1窗体对应的Unit1.pas文件，发现以下代码：type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end;var Form1: TForm1;这里type关键字含义是定义类型，TForm1 =class(TForm)，定义TForm1继承自TForm,下边有private私有成员和public公有成员。下边声明TForm1类的实例，全局变量Form1

4、F9运行程序，点击Button1会先后弹出私有方法调用和公共方法调用两个对话框，证明两个方法均可调用。

5、接着在type区定义一个我们自己的类，代码如下：TMyClass = class procedure exeForm1Pub(); procedure exeForm1Pri(); end;这两个过程的实现代码如下：procedure TMyClass.exeForm1Pri;begin Form1.PriShowMsg;end;procedure TMyClass.exeForm1Pub;begin Form1.PubShowMsg;end;在Button1的OnClick事件方法中调用上述两个方法：procedure TForm1.Button1Click(Sender: TObject);var myClass:TMyClass;begin myClass :=TMyClass.Create; myClass.exeForm1Pub; myClass.exeForm1Pri;end;