Question

我的Delphi 7应用程序包含我已经制作的多种表格。我现在想让每个单独的表单出现在单个容器表单的单独选项卡中。因为我是Delphi的新手，所以我不知道采取什么方法，那么Delphi中有哪些方法可以帮助我实现这一目标？

谢谢你。

Answer 1

创建页面控件TPageControl。
添加7页。
创建7个表单。
将每个表单添加到其标签页中。

最后一步如下：

Form1.Parent := TabSheet1;
Form1.Align := alClient;
Form1.BorderStyle := bsNone;
Form1.ParentBackground := True;

由于您正在为7个表单和7个标签页执行此操作，因此您希望在数组中执行此操作，并将上面的代码提取到方法中。

Answer 2

一种简单的方法是使用ManualDock：

var
 i:Integer;
begin
    // caption of then new tab sheet will be the caption of the form

    Form2.ManualDock(Pagecontrol1);
    Form2.Show;

    // or as loop
    for I := 0 to 5 do
        begin
          With TForm2.Create(self) do
            begin

                ManualDock(Pagecontrol1);
                Show;
            end;
        end;
     Pagecontrol1.ActivePageIndex := 0;
end;

Answer 3

而不是表单，使它们成为单独的框架，然后在TFrame对象的各个选项卡中使用TPageControl组件来生成所需的选项卡布局。这是一个无代码的解决方案。

如何在Delphi 7中使用现有Form作为Tab

3 个答案: