delphi - TMainMenu在Delphi中

Question

我的申请中有两种不同的形式。我创建了另一个空窗体，并在其上放置了一个TMainMenu组件和两个菜单项。此新表单将用作加载其他所有内容的主要表单。现在，我希望它像这样工作：当您单击两个菜单项中的任何一个时，它应将与之关联的菜单项的各自表单内容加载到主表单中。我该如何实现？或解决此类问题的典型方法是什么？请提供一个简单的说明性示例。

Answer 1

在TPanel上创建一个MainForm并将其设置为Align := alClient，BevelOuter := bvNone。还要提供MainForm属性Form1: TForm1和Form2: TForm2。然后以这种方式显示Form1或Form2：

显示Form1：

if not Assigned(MainForm.Form1) then
  MainForm.Form1 := TForm1.Create(MainForm);
MainForm.Form1.Parent := MainForm.Panel1;
MainForm.Form1.Align := alClient;
MainForm.Form1.BorderStyle := bsNone;
MainForm.Form1.Visible := True;
if Assigned(MainForm.Form2) then
  MainForm.Form2.Visible := False;

当然，您不需要写 MainForm；只是为了阐明示例。