8.7 可视化窗体继承

​ 继承不仅用于库类或你编写的类，而且在整个基于 Object Pascal 的开发环境中相当普遍。正如我们所看到的，当你在集成开发环境中创建一个窗体时，这个窗体就是一个继承自 TForm 的类的实例。因此，任何可视化应用程序都有一个基于继承的结构，即使你最终将大部分代码编写成简单的事件处理程序。

​ 但鲜为人知的是，即使是经验丰富的开发人员，也可以从已创建的窗体继承一个新窗体，这种功能通常被称为可视化窗体继承（这也是 Object Pascal 开发环境所特有的）。

​ 这里的有趣之处在于，你可以直观地看到继承的强大功能，并直接找出其规则！这在实践中有用吗？这主要取决于你正在构建的应用程序的类型。如果它有许多窗体，其中有些窗体彼此非常相似，或者只是包含了共同的元素，那么你就可以将共同的组件和共同的事件处理程序放在基本窗体中，然后将特定的行为和组件添加到子类中。另一种常见的情况是，使用可视化窗体继承为特定公司定制应用程序的某些窗体，而无需重复任何源代码（这也是首先使用继承的核心原因）。

​ 您还可以使用可视化窗体继承为不同的操作系统和不同的窗体因素（例如从手机到平板电脑）定制应用程序，而无需重复任何源代码或窗体定义代码；只需从标准窗体继承特定的版本即可。

​ 请记住，可视化继承的主要优势在于，您可以在以后更改原始窗体，并自动更新所有派生窗体。这是面向对象编程语言中众所周知的继承优势。但还有一个有益的副作用：多态性。你可以在基本窗体中添加一个虚拟方法，并在子类窗体中覆盖该方法。然后，您就可以时引用这两个窗体，并为每个窗体调用该方法。

注解：使用相同元素构建窗体的另一种方法是依靠框架，即窗体面板的可视化组合。在这两种情况下，设计时都可以对一个窗体的两个版本进行处理。不过，在可视化窗体继承中，您需要定义两个不同的类（父类和派生类），而在框架中，您只需处理一个框架类和由窗体托管的该框架实例。

8.7.1 从基本窗体继承

一旦你对继承有了明确的概念，可视化窗体继承的规则就会变得非常简单。基本上，子类窗体拥有与父类窗体相同的组件以及一些新组件。你不能移除基类的组件，尽管（如果是可视化控件）你可以让它不可见。重要的是，你可以轻松更改继承组件的属性。

请注意，如果更改了继承窗体中组件的某个属性，对父窗体中相同属性的任何修改都不会产生影响。更改组件的其他属性也会影响继承版本。您可以使用 "对象检查器 "的 "Revert to Inherited"的本地菜单命令重新同步两个属性值。将两个属性设置为相同的值并重新编译代码也能达到同样的目的。修改多个属性后，可以通过应用组件本地菜单的 "Revert to Inherited"命令，将所有属性重新同步到基础版本。

除了继承组件，新窗体还继承了基础窗体的所有方法，包括事件处理程序。你可以在继承的窗体中添加新的处理程序，也可以覆盖现有的处理程序。

为了演示可视化窗体继承的工作原理，我制作了一个非常简单的示例，名为 VisualInheritTest。下面我将逐步介绍如何创建它。首先，启动一个新的多设备项目，选择一个空白项目，并在其主窗体中添加两个按钮。然后选择 “文件"→"新建"→"其他”，在New Items对话框中选择 "Inheritable Items "页面（见图 8.3）。在这里可以选择要继承的窗体。

图 8.3：通过 "新项目 "对话框可以创建继承窗体。

​ 新窗体具有相同的两个按钮。以下是新窗体的初始文本描述：

inherited Form2: TForm2Caption = 'Form2'...
end;

​ 这里是它的初始类声明，可以看到基类不是通常的 TForm，而是实际的基类窗体：

typeTForm2 = class(TForm1)private{ Private declarations }public{ Public declarations }end;

​ 注意文本描述中出现的 inherited 关键字；还请注意，窗体确实有一些组件，尽管它们是在基类窗体中定义的。如果更改其中一个按钮的标题并添加一个新按钮，文字说明也会相应更改：

inherited Form2: TForm2Caption = 'Form2'...inherited Button1: TButtonText = 'Hide Form'endobject Button3: TButton...Text = 'New Button'OnClick = Button3Clickend
end;

​ 只有具有不同值的属性才会被列出，因为其他属性只是被原样继承。

图 8.4: VirtualInheritTest 示例的两个表单在运行时

​ 第一个窗体的每个按钮都有一个 OnClick 处理程序，代码很简单。第一个按钮显示第二个窗体并调用其 Show 方法，而第二个按钮显示一条简单的消息。

​ 在继承窗体中会发生什么？我们首先要改变显示按钮的行为，将其作为隐藏按钮来实现。这意味着不执行基类事件处理程序（因此我注释掉了默认的继承调用）。至于 Hello 按钮，我们将通过保留继承调用，在基类显示的信息中添加第二条信息：

procedure TForm2.Button1Click(Sender: TObject);
begin// Inherited;Hide;
end;procedure TForm2.Button2Click(Sender: TObject);
begininherited;ShowMessage('Hello from Form2');
end;

​ 请记住，继承的方法可以使用 inherited 关键字调用同名的基类方法，而在事件处理程序中，inherited 关键字代表对父窗体相应事件处理程序的调用（无论事件处理程序方法名称如何）。

​ 当然，你也可以将基类窗体的每个方法视为你的窗体的一个方法，并自由调用它们。通过这个示例，你可以探索可视化窗体继承的一些特性，但要想看到它的真正威力，你还需要研究更复杂的实际示例，而本书没有足够的空间来进行探索。