Вопрос Скрыть кастомну страницу....

[Хамик]

Вот небольшой пример...как в нем скрыть страницу в зависимости от кнопки. Надо чтобы при нажатии кнопки "Стационарная" страница Page появлялась а при нажатии кнопки "Портативная" страница Page скрывалась. Спасибо!!!

Спойлер: код

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
I, P: TNewRadioButton;
Page: TWizardPage;

procedure InitializeWizard();
begin

Page := CreateCustomPage(wpSelectTasks, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

P := TNewRadioButton.Create(WizardForm);
    with P do
    begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(164);
    Top := ScaleY(150);
    Width := ScaleX(150);
    Height := ScaleY(17);
    Caption := 'Портативная';
    end;

  I := TNewRadioButton.Create(WizardForm);
    with I do
    begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(32);
    Top := ScaleY(150);
    Width := ScaleX(120);
    Height := ScaleY(17);
    Caption := 'Стационарная';
    Checked:= true;
  end;
end;

 

[Silentman]

Хамик, как вариант через функцию ShouldSkipPage:

Спойлер: код

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code*]
var
I, P: TNewRadioButton;
Page: TWizardPage;
procedure InitializeWizard();
begin
Page := CreateCustomPage(wpSelectTasks, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
P := TNewRadioButton.Create(WizardForm);
with P do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(164);
Top := ScaleY(150);
Width := ScaleX(150);
Height := ScaleY(17);
Caption := 'Портативная';
end;
I := TNewRadioButton.Create(WizardForm);
with I do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(32);
Top := ScaleY(150);
Width := ScaleX(120);
Height := ScaleY(17);
Caption := 'Стационарная';
Checked:= true;
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if P.Checked then
if (PageID = Page.id) then Result := True;
end;

 

[sergey3695]

так еще немного короче

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = Page.id) then Result := P.Checked;
end;

 

[Хамик]

А этим способом можно скрыть форму(окошко) которая используется в функции?