Delphi - 已在页面控件中打开选项卡

Question

这是关于带有动态选项卡的 PageControl。我有 5 个按钮（Button1、Button2、Button3、Button4、Button5）。

我想要以下内容：

1. 每次点击按钮都会打开一个新的TtabSheet。
2. 单击同一个按钮时，“Ttabsheet”已经打开，应该会再次显示。

如何做到这一点？

Answer 1

只需在表单类中定义像fPreviousTabIndex 这样的变量，您可以在其中存储最后一个状态（TPageControl 的ActivePageIndex 属性）。

接下来的部分已经很简单了……

procedure TForm1.Button2Click(Sender: TObject);
const
  DESIRED_PAGE_INDEX = 2;
begin
  if PageControl.ActivePageIndex = DESIRED_PAGE_INDEX then
    PageControl.ActivePageIndex := fPreviousTabIndex
  else
  begin
    fPreviousPageIndex := PageControl.ActivePageIndex;
    PageControl.ActivePageIndex := DESIRED_PAGE_INDEX;
  end;
end;

当然你需要在创建表单时初始化fPreviousTabIndex。

Answer 2

我不知道为什么您真的希望有五个按钮来完成创建选项卡然后选择它们的工作，但这是您可以尝试的方法之一

uses System.Generics.Collections;

...

var
Newtabsheet: Ttabsheet;
Tabs: TList<Ttabsheet>;
Index: array[1..5] of Integer;
Ex: array [1..5] of Boolean;

implementation

把这个放在Formcreate处理程序上

procedure TForm6.FormCreate(Sender: TObject);
begin
Tabs := Tlist<Ttabsheet>.create;
for I=1 to 5 do ex[I]:=false;
end;

在每个OnClickButton 事件处理程序上都有这个

procedure TForm6.Button1Click(Sender: TObject);
begin
if not(Ex[1])then
  begin
  Newtabsheet := Ttabsheet.Create(PageControl1);
  NewTabSheet.PageControl := PageControl1;
  Newtabsheet.Caption := 'Tab 1';
  Index[1] := Tabs.Count;
  Tabs.Add(Newtabsheet);
  Ex[1] := true;
  end
else
  begin
  Pagecontrol1.ActivePage := Tabs.List[Index[1]];
  end;
end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Tabs.Free;
end;

记得更改数字。

它在 RAD 工作室西雅图进行了测试。

注意： 基于 david cmets，我编辑了我的答案。更多解释请看question