delphi - 如何在 Delphi7 中使用现有的表单作为选项卡

Question

我的 Delphi 7 应用程序包含我已经制作的多个表单。我现在想让每个单独的表单出现在单个容器表单的单独选项卡中。因为我是 Delphi 的新手，我不知道该采取什么方法，那么 Delphi 中有哪些方法可供我完成此任务？

谢谢。

Answer 1

1. 创建一个页面控件，TPageControl.
2. 添加 7 页。
3. 创建您的 7 个表格。
4. 将每个表单添加到其标签表中。

最后一步如下：

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来生成您想要的选项卡布局。这是一个无代码的解决方案。