버튼 클릭으로 페이지로 어떻게 이동합니까?

Question

간단한 일이 필요합니다 : 사전 및 일반 설치 버튼이 있어야합니다. 정상적인 경우에는 모든 것이 간단합니다. NextButtonClick에 대한 일부 로직과 함께 기본 다음 버튼을 사용하여 조건 변수를 설정하고 ShouldSkipPage을 사용하여 일부 페이지를 스킵합니다. 그러나 고급 설정을 위해 나는 새로운 버튼을 생성하고 내가 그것을 클릭에 할 필요는 다음 설치 페이지를 열 수 있습니다 :

이

procedure CurPageChanged(CurPageID : Integer); 
begin 
if CurPageID = wpWelcome then begin 
    AdvancedButton := TButton.Create(WizardForm); 
    AdvancedButton.Caption := 'Advanced Install'; 
    AdvancedButton.Left := WizardForm.InfoAfterPage.Left + 10; 
    AdvancedButton.Top := WizardForm.InfoAfterPage.Height + 88; 
    AdvancedButton.Parent := WizardForm.NextButton.Parent; 
    # AdvancedButton.OnClick := What shall I call to open say next page (or some page by given PageID value) 
    end 
    else begin 
    AdvancedButton.Visible := False; 
    end; 

end; 

그래서 내가 열 부를 것이다 무슨 말을 다음 페이지 (또는 특정 페이지 id 값에 의해 일부 페이지) 내 버튼 클릭 (어떤 NextPage 또는 Inno API에서 일부 SetPage 함수를 찾을 수 없습니다)?

Answer 1

Inno Setup에는 "페이지로 바로 건너 뛰기"와 같은 것이 없습니다. '고급 모드'에서 특정 페이지를 자동으로 건너 뛰기 만하면됩니다.

일반 설치 프로그램과 동일하게 수행하십시오. '고급 모드'를 유지하기 위해 하나의 변수를 설정하십시오. Advance 버튼을 클릭 한 후 :

[Code] 
var 
    IsAdvanced: Boolean; 

procedure AdvancedButtonClick(Sender: TObject); 
begin 
    IsAdvanced := True; 
    WizardForm.NextButton.OnClick(nil); 
end; 

procedure InitializeWizard; 
var 
    AdvancedButton: TNewButton; 
begin 
    // not necessary; just for sure 
    IsAdvanced := False; 
    // create the button 
    AdvancedButton := TNewButton.Create(WizardForm); 
    AdvancedButton.Caption := 'Advanced Install'; 
    AdvancedButton.Left := WizardForm.InfoAfterPage.Left + 10; 
    AdvancedButton.Top := WizardForm.InfoAfterPage.Height + 88; 
    AdvancedButton.Parent := WizardForm.NextButton.Parent; 
    AdvancedButton.OnClick := @AdvancedButtonClick; 
end; 

function ShouldSkipPage(PageID: Integer): Boolean; 
begin 
    // the <page where you want to end up> fill with the wizard page constant 
    // of the page where you want to end up, e.g. wpReady 
    Result := IsAdvanced and (PageID <> <page where you want to end up>); 
end; 

이 논리를 사용하면 특정 페이지로 조용한 '점프'를 시뮬레이션 할 수 있습니다.