Delphi动态创建子窗口例子

最新推荐文章于 2024-01-12 16:58:31 发布

原创最新推荐文章于 2024-01-12 16:58:31 发布 · 3.4k 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

25 篇文章

订阅专栏

本文提供了一个使用Delphi动态创建并显示子窗口的例子。通过一个菜单项选择不同的子窗体进行实例化，并将其作为子窗口展示在父窗体中。此方法允许根据需要动态加载不同的子窗体。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi动态创建子窗口例子

procedure TForm1.mlskntlbr2ItemDown(Sender: TObject; const ItemIndex: Integer);
begin
  case ItemIndex of
    0:
      ShowSubForm(Form2, TForm2);
    1:
      ShowSubForm(Form3, TForm3);
    2:
      ; // 分隔线
    3:
      ShowSubForm(Form4, TForm4);
    4:
      ;
    5:
      ;
    6:
      ;
    7:
      ;
  end;
end;

procedure TForm1.ShowSubForm(var Ref; AFormClass: TFormClass);
var
  Instance: TForm;
begin
  if not Assigned(TForm(Ref)) then
  begin
    Instance := TForm(AFormClass.NewInstance);
    TForm(Ref) := Instance;
    Instance.Create(Self);
    Instance.Parent := pnl2;
    Instance.Align := alClient;
    Instance.BorderStyle := bsNone;
  end
  else
    Instance := TForm(Ref);
  Instance.Show;
end;