【控件功能】我来做练习-第40课-继承的示例，如何继承并增加方法成员，如何调用Objects example - Inheritance

继承的示例，如何继承并增加方法成员，如何调用Objects example - Inheritance

提示：父对象建立，子对象继承父对象所有方法，并增加新的定义
提示：调用对象的方法

核心源码

procedure TForm1.Button1Click(Sender: TObject);
var
// We declare a MyObject variable of TMyClass type
MyObject: TMyClass;
MySecondObject: TMySecondClass;
begin
// We need to create an object;
// Object is an instance of a class
// All objects have the Create constructor and a free destructor
Memo1.Lines.Add(‘Classes and objects example - inheritance’);
Memo1.Lines.Add(‘First - parent class:’);
MyObject := TMyClass.Create;