delphi - 覆盖 TForm 后代的默认显示行为 / SetVisible (Delphi VCL)

Question

我想更改 TForm 后代的显示默认行为（例如，我不想将其自身显示在屏幕上，而是将其作为新标签页放在页面控件上）。如何做到这一点？我想使用标准方法（调用 Show 方法或设置 Visible 属性）来显示它，所以我尝试覆盖 SetVisible 方法。但是我发现 SetVisible 不能被覆盖，因为它是一个私有方法。任何建议在哪里覆盖它？谢谢。

Answer 1

您可以覆盖受保护的 TCustomForm.VisibleChanging。

Answer 2

有两种方法可以做我认为你所问的事情，即在面板或类似的面板中嵌入表单。有一个 TForm.CreateParented(handle) 函数，但在我们的代码中我们倾向于不使用它。相反，我们使用这种代码创建表单：

MyForm := TMyForm.Create(Self);
MyForm.Parent := MyTabSheet;
MyForm.Border := bsNone;
MyForm.Align := alClient;
MyForm.Show;