[Serega]

как правильно перечислить страницы »

Если не хочется перечислять все страницы последовательно, т.е.:

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
  WizardForm.WelcomeLabel1.Parent:= WizardForm.SelectDirPage;
  if CurPageID = wpSelectProgramGroup then
  WizardForm.WelcomeLabel1.Parent:= WizardForm.SelectDirPage;
end;

то всё равно нужно написать функцию, которая будет возвращать название страниц:

Пример

Код:

function DetectPage(CurPageID: Integer): TNewNotebookPage;
begin
  case CurPageID of
    wpWelcome: Result:= WizardForm.WelcomePage;
    wpLicense: Result:= WizardForm.LicensePage;
    wpPassword: Result:= WizardForm.PasswordPage;
    wpInfoBefore: Result:= WizardForm.InfoBeforePage;
    wpUserInfo: Result:= WizardForm.UserInfoPage;
    wpSelectDir: Result:= WizardForm.SelectDirPage;
    wpSelectComponents: Result:= WizardForm.SelectComponentsPage;
    wpSelectProgramGroup: Result:= WizardForm.SelectProgramGroupPage;
    wpSelectTasks: Result:= WizardForm.SelectTasksPage;
    wpReady: Result:= WizardForm.ReadyPage;
    wpPreparing: Result:= WizardForm.PreparingPage;
    wpInstalling: Result:= WizardForm.InstallingPage;
    wpInfoAfter: Result:= WizardForm.InfoAfterPage;
    wpFinished: Result:= WizardForm.FinishedPage;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpSelectDir) or (CurPageID = wpSelectProgramGroup) then
  WizardForm.WelcomeLabel1.Parent:= DetectPage(CurPageID);
end;