Add(Sheet: IWizardPage);
Sheet - входной параметр, определяющий добавляемую страницу.
Метод Add осуществляет добавление страницы в коллекцию страниц мастера. Страница передается в качестве входного параметра Sheet.
Все добавляемые страницы помещаются в конец коллекции.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
PageWiz: IWizardPage;
Lab: ILabel;
Begin
PageWiz := New WizardPage.Create;
Lab := New Label.Create;
Lab.Text := "Последняя страница";
Wizard1.Pages.Add(PageWiz);
Lab.Parent := Wizard1.Pages.Item(Wizard1.Pages.Count - 1);
End Sub Button1OnClick;
После нажатия на кнопку «Button1» в мастер будет добавлена страница, на которой будет содержаться надпись "Последняя страница".
См. также: