Delphi MDI创建子窗体

我有一个很大的应用程序，当用户点击菜单栏时会创建几个表单。我想通过在编辑组件中键入子窗体的名称，为他们提供调用子窗体的功能。通常通过以下过程创建子窗体：

procedure CreateChildForm(ChildClass: TComponentClass; var Reference);
 begin
   Screen.Cursor := crHourGlass;
   try
     if (FindChildForm(ChildClass, TObject(Reference))) then
begin
  (TObject(Reference) as TForm).WindowState := wsNormal;
  (TObject(Reference) as TForm).Show;
end
else
  Application.CreateForm(ChildClass,Reference);
  except
  on e: exception do
    ErrorMsg('Exception -> CreateChildForm ' + e.message);
  end;
  Screen.Cursor := crDefault;
end;

像这样

procedure TMain.acPN010Execute(Sender: TObject);
begin
  CreateChildForm(TfrmPN010,frmPN010);
end;

---

如何将字符串作为参数传递给该过程？

要展开我的评论，这里有一个使用

TCombobox

创建子表单的示例。这可能用于基本上重复使用菜单代码，并自动调整以更改菜单-例如，在项目中添加新的子表单时

您没有提到菜单类类型或结构，但这应该根据实现细节进行调整

使用以下代码，您可以用

TMenuItem

的所有子项填充组合框的

项

：

procedure FillCombobox(AMenuItem: TMenuItem; ACombobox: TCombobox);
var
  I: Integer;
begin
  for I := 0 to AMenuItem.Count - 1 do
    ACombobox.Items.AddObject(AMenuItem.Items[I].Caption, AMenuItem.Items[I]);
end;

使用组合框的

OnSelect

事件，您可以完全执行单击给定菜单项所执行的操作：

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  TMenuItem(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Click;
end;

一个小的测试项目，使用这个和您提供的创建子表单的代码-除了

FindChildForm

和

ErrorMsg

，关于它的作用的详细信息未知

.pas：

.dfm：

---

你不能。一根绳子就是一根绳子。您需要一种方法来查找给定字符串的引用。但这听起来不是一个很好的设计。我会使用一个组合框，用菜单栏中的条目填充。这样用户就不会输入错误，在条目的对象中显示了每个表单名称的确切信息。也许该函数可以帮助您，它允许您从其类名开始获取类。

Application.FindComponent（'frmPN010_1'）作为TForm

应该为您提供由该过程创建的第一个实例。但是正如前面所说的，这样的设计是不好的。我通过使用applications ActionList组件来匹配动作，并使用

bvsActionList.Actions[I].Execute来执行，从而解决了这个问题谢谢你没有。
interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    FormNo11: TMenuItem;
    FormNo21: TMenuItem;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    procedure FormNo21Click(Sender: TObject);
    procedure FormNo11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
  private
    { Private declarations }
    FChild1: TForm;
    FChild2: TForm;
  public
    { Public declarations }
  end;

  TChild1 = class(TForm)
    constructor Create(AOwner: TComponent); override;
  end;

  TChild2 = class(TForm)
  public
    constructor Create(AOwner: TComponent); override;
  end;

    procedure FillCombobox(AMenuItem: TMenuItem; ACombobox: TCombobox);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CreateChildForm(ChildClass: TComponentClass; var Reference);
Begin
  Screen.Cursor := crHourGlass;
  try
//    if (FindChildForm(ChildClass, TObject(Reference))) then
//    begin
//      (TObject(Reference) as TForm).WindowState := wsNormal;
//      (TObject(Reference) as TForm).Show;
//    end
//    else
    Application.CreateForm(ChildClass,Reference);
  except
  on e: exception do
    raise;
//    ErrorMsg('Except/on -> CreateChildForm ' + e.message);
  end;
  Screen.Cursor := crDefault;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  TMenuItem(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Click;
end;

procedure FillCombobox(AMenuItem: TMenuItem; ACombobox: TCombobox);
var
  I: Integer;
begin
  for I := 0 to AMenuItem.Count - 1 do
    ACombobox.Items.AddObject(AMenuItem.Items[I].Caption, AMenuItem.Items[I]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FillCombobox(N1, ComboBox1);
end;

procedure TForm1.FormNo11Click(Sender: TObject);
begin
  CreateChildForm(TChild1, FChild1);
end;

procedure TForm1.FormNo21Click(Sender: TObject);
begin
  CreateChildForm(TChild2, FChild2);
end;

{ TChild1 }

constructor TChild1.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner);
  FormStyle := fsMDIChild;
  Caption := 'No. I';
end;

{ TChild2 }

constructor TChild2.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner);
  FormStyle := fsMDIChild;
  Caption := 'No. II';
end;

end.

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 344
  ClientWidth = 649
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 303
    Width = 649
    Height = 41
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 0
    ExplicitTop = 309
    object ComboBox1: TComboBox
      Left = 8
      Top = 12
      Width = 145
      Height = 21
      AutoCompleteDelay = 2500
      AutoDropDown = True
      TabOrder = 0
      OnSelect = ComboBox1Select
    end
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 8
    object N1: TMenuItem
      Caption = 'Forms'
      object FormNo11: TMenuItem
        Caption = 'Form No. 1'
        OnClick = FormNo11Click
      end
      object FormNo21: TMenuItem
        Caption = 'Form No. 2'
        OnClick = FormNo21Click
      end
    end
  end
end