1.创建子窗体Form1
File -> New -> Form,新建一个form,在form的单元文件中修改
2.子窗体中引用父窗体单元
uses TFatherForm
3.将子窗体中代码修改
TForm1 = class(TForm) 改为
TForm1 = class(TFatherForm) //TFatherForm为被继承的窗体
4.在Form窗体上弹出右键菜单,选择View As Text
把第一行的Object 改成 inherited 后保存;
5.在Form标签上点击右键,选择View Form;就可以看到继承的窗体了。
|
请发表评论