delphi 没有 Tmainmenu 的 MDI 窗体

Question

我正在尝试在没有 TMainMenu 的情况下使用 MDI 表单，并从 Ttoolbar 上的 speedbutton 调用 Form2。当 Form2(child) 最大化时，表单 header 和 bordericons 消失。

我希望 Form2(child) 在 Ttoolbar 下最大化并且 header 并且边框图标可见

Answer 1

这就是 MDI 的工作原理。除了使用 MDI，您还可以使用 TPanel 并将其设置为子窗体的父级，如下所示：

var
 FChild: TfrmChild;
begin
 FChild := TfrmChild.Create(Self);
 FChild.Parent := pnlMain;
 FChild.Show;
end;

...

delphi MDI form without Tmainmenu