理解 Delphi 的类(五) - 认识类的继承

先新建一个 VCL Forms Application 工程, 代码中就已经出现了两个类:
一个是 TForm 类; 一个是 TForm1 类; TForm1 继承于 TForm.
TForm 是 TForm1 的父类; TForm1 是 TForm 的子类.

 

全文：https://www.cnblogs.com/del/archive/2008/01/11/1034526.html //

 

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBass = class
    procedure msg1;
  end;

  TChild = class(TBass) //继承类的语法，就在class后面加个括号，再写上父类，就这么简单。
    procedure msg2;
  end;

var
  Form1: TForm1; //并且，建在类的时候，要写在 type 和 var 关键字之间。每建立一个类都要由end结束。