1.  先建一个普通的窗体，until1

2.  先把类实现基类， 并需要实现基类需要继承的方法， 可以先不用再方法中写实现代码。

TForm4 = class(TfrmmtAReportPeriodBase)

function NewDayReportBefore(aStartDate, aEndDate: string): Boolean; override;

3. 右键，选择“View as Text”

4. 显示如下

5.  最关键的一步， object Form4: TForm4  改为  inherited Form4: TForm4

6.  选择 “view   as Form ”

ok, 这样就继承了基类的窗体啦。