覆盖 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;