在页面控件中从一个页面移动到另一个页面时如何检查上一个选项卡？

Question

我使用 TPageControl 隐藏 TTabsheets 的选项卡，以便使它们包含的框架看起来像是堆叠的，并通过在过程中的不同步骤显示不同的框架来构建某种向导。

问题是，在调用“PageControl1.ActivePageIndex := x;”之后要显示下一帧，一旦进入新帧，我需要知道我是如何到达这里的，即之前显示的是哪一帧。

如果其他人在页面控件中使用框架来构建向导，您如何跟踪上一个/下一个框架？

谢谢。

Answer 1

TPageControl 有一个名为 OnChanging 的事件，该事件在更改之前调用，并允许您通过将参数设置为 false 来取消更改。

您还可以使用此事件来记录更改之前哪个页面处于活动状态。

不过，我鼓励您制作一些与 gui 组件不那么紧密耦合的东西。尝试让某种类负责保存框架并检查是否允许从一个框架更改为另一个框架等等。这将使您更容易切换用于可视化向导的 GUI 控件类型。如果验证规则得到执行等等，这肯定会使测试向导是否提供了您想要的逐步进展变得更加容易。

Answer 2

delphi.about.com 上有一篇文章如何创建向导类似的用户界面。您可以使用 TPageControl.SelectNextPage 方法在一组页面中向前和向后移动。

Answer 3

与 Nat 的答案相反，如果您使用正确的方法来更改页面，tpagecontrol.onchanging 事件将正常工作：

创建一个 VCL 表单应用程序，然后放在 TPageControl 上，将 Align 属性设置为 alTop 并在下面留出一些空间。右键单击 PageControl 并添加一些页面，为每个页面设置 TabVisible:=false。现在在下面添加几个按钮。将 PageControl 的 onchanging 事件和按钮的 onclick 事件附加到下面的相应代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex < PageControl1.PageCount - 1 then
    PageControl1.SelectNextPage(true, false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    PageControl1.SelectNextPage(false, false);
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  showmessage(format('now leaving page number %d', [PageControl1.ActivePageIndex]));
end;

这按预期工作（BDS2006、RAD2009）。

Answer 4

您可能还想查看属于 JEDI VCL 库一部分的向导组件。

Answer 5

我编写了一个向导框架，它几乎可以完成您想要做的事情。其中大部分内容都记录在我的博客上。我使用的解决方案是将下一个/上一个页面的请求推送到框架本身（使用接口），并让框架决定下一帧应该是什么。

如果您想合并这两个想法（保持 tPageControl 不变），您可以将请求路由到 tPageControl.ActivePage，并且为了实现 NavigateToPage 可以查找您指定的页面，而不是尝试查找特定的页面班级。

我的向导框架的设计是为了处理一些复杂的向导，其中包含基于沿途做出的决策的多个路径。我将前面的帧存储在列表中，每个帧的“状态”存储在一个全局可访问的类中，一旦向导完成/取消，该类就会被清除。

Answer 6

您必须手动跟踪上一页索引。例如，在“下一个”和“上一个”按钮的 OnClick 事件处理程序中，您可以执行如下操作：

procedure TWizardForm.NextClick(ASender: TObject);
begin
  SwitchPage(True);
end;

procedure TWizardForm.PreviousClick(ASender: TObject);
begin
  SwitchPage(False);
end;

SwitchPage() 看起来像这样：

procedure TWizardForm.SwitchPage(AForward: boolean);
var
  LGotoPage: integer;
begin
  LGotoPage := PageControl.ActivePageIndex;

  if AForward and (PageControl.ActivePageIndex < PageControl.PageCount) then
    inc(LGotoPage)
  else if PageControl.PageIndex > 0 then
    dec(LGotoPage);

  if (LGotoPage <> PageControl.ActivePageIndex) 
    and AllowSwitchFrom(ActivePageIndex) then
  begin
    FPreviousPage := PageControl.ActivePageIndex;
    PageControl.ActivePageIndex :=  LGotoPage;
  end;

end;

或类似的操作。 :)

编辑： Argalatyr 是正确的，而我是不正确的，如果您想按顺序浏览向导，我将假设这里就是这种情况。

OnChanging 处理程序确实会触发，并且您来自的页面（仍然）是活动页面。

当您直接设置页面索引时（如我的示例所示），OnChanging 事件不会触发，因此您必须跟踪旧的页面索引。这来自于带有可选页面（非连续）的向导编码。

我应该在发帖之前仔细检查一下。对错误答案表示歉意。

氮@