delphi 中继承父窗体

来源：互联网发布：淘宝店代刷信誉编辑：程序博客网时间：2024/05/23 07:23

以下均为delphi2009环境下的操作

创建父窗体(tform1)：

弹出创建的窗体Name：

添加继承窗体：

选择要继承的父窗体：

program Project1;uses  Forms,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2},  Unit3 in 'Unit3.pas' {Form3};{$R *.res}begin  Application.Initialize;  Application.MainFormOnTaskbar := True;  //Application.CreateForm(TForm1, Form1);  Application.CreateForm(TForm2, Form2);  Application.CreateForm(TForm3, Form3);  Application.Run;end.

运行后的效果：

至此，继承窗体已经创建好。在这之前，我是先创建窗体，然后再修改其继承类为tform1的，虽然运行的时候和上面显示的一样，但是在设计模式下显示的却是空白，所以还是按规矩做继承吧

在进一步探索之后得到可以修改的结果：

将object 改为inherited，即为继承窗体了，form2显示和父窗体form1一致