(delphi11最新学习资料) Object Pascal 学习笔记---第8章第7节（可视化窗体继承）

本文链接：https://blog.csdn.net/langfengyl/article/details/137289525

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: TForm2
  Caption = 'Form2'
  ...
end;

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

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

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

inherited Form2: TForm2
  Caption = 'Form2'
  ...
  inherited Button1: TButton
    Text = 'Hide Form'
  end
  object Button3: TButton
    ...
    Text = 'New Button'
    OnClick = Button3Click
  end
end;

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

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

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

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

procedure TForm2.Button1Click(Sender: TObject);
begin
  // Inherited;
  Hide;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  inherited;
  ShowMessage('Hello from Form2');
end;

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

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