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, 這樣就繼承了基類的窗體啦。