delphi - 在delphi 7中制作向导界面

Question

我正在使用delphi 7，我正在尝试制作一个向导界面。我不知道是否有更简单的方法来制作向导，所以我正在考虑为向导的每个步骤制作单独的表单，当用户单击“下一步”时，事件表单将关闭并打开下一个表单。

这是两个连续表单的屏幕截图:

我制作了一个采用 2 个表单作为参数的过程:将关闭的表单和向导的下一个表单

class Procedure Tspad.nextForm(showForm, closeForm: TForm);
begin
   closeForm.Close;
   showForm.Showmodal;
end;

当我单击“下一步”按钮时，将执行以下代码:

Tspad.nextForm(echipContractForm, clientContractForm);

当我运行程序并按“下一步”按钮时，会出现下一个窗体，但当前窗体不会关闭。

我怎样才能完成这项工作，或者是否有其他更有效的方法来创建向导？

Answer 1

制作向导的一种非常常见的方法是使用页面控件。向导的每个不同页面都是页面控件中的不同页面/选项卡。我相信这就是 Windows 实现向导的有效方式。

您当然想隐藏所有选项卡。通过将每个选项卡的 TabVisible 设置为 False 来实现此目的。当您希望在向导中向前和向后移动时，例如当用户单击下一个或上一个按钮时，请根据您的偏好设置 ActivePage 或 ActivePageIndex 来实现此目的。