Inno Setupのカスタムウィザードページ（「インストールチェックリスト」）が実行時にテキストを変更します

Question

カスタムウィザードページを作成しました。インストールの最後にインストールチェックリストを表示して、インストールが正常に行われたかどうかを確認します。

だから私は私のinitializeWizard()

Page := CreateCustomPage(wpInstalling, 'Installation Checklist', 'Status of all installation components'); 

RichEditViewer := TRichEditViewer.Create(Page); 
RichEditViewer.Width := Page.SurfaceWidth; 
RichEditViewer.Height := Page.SurfaceHeight; 
RichEditViewer.Parent := Page.Surface; 
RichEditViewer.ScrollBars := ssVertical; 
RichEditViewer.UseRichEdit := True; 
RichEditViewer.RTFText := ''// I want this attribute to be set in CurStepChanged() 

にこのコードを持って

Crucial Step......................SUCCESS 
Optional Step.....................FAILURE 

のようなものは、後の時点でRichEditViewer.RTFTextを追加したり、編集する方法はありますか？ Pageはグローバル変数ですが、どの属性にもアクセスしようとするとエラーになります。 wpInstallingの後にテキストを編集したいので、インストール手順が成功したかどうかを知ることができます。

Answer 1

私はこのメソッドの巨大なファンではありませんが、あなたはRichEditViewerをグローバルとして設定し、任意の時点でどの関数でも編集することは簡単です。

var 
    RichEditViewer: TRichEditViewer; 

procedure InitializeWizard(); 
var 
    Page: TWizardPage; 
begin 
    Page := CreateCustomPage(wpInstalling, 'Installation Checklist', ''); 

    RichEditViewer := TRichEditViewer.Create(Page); 
    RichEditViewer.Width := Page.SurfaceWidth; 
    RichEditViewer.Height := Page.SurfaceHeight; 
    RichEditViewer.Parent := Page.Surface; 
    RichEditViewer.ScrollBars := ssVertical; 
    RichEditViewer.UseRichEdit := True; 
end; 

procedure CurStepChanged(CurStep: TSetupStep); 
begin 
    if CurStep=ssPostInstall then RichEditViewer.RTFText := 'STUFF'; 
end; 

注目すべきは、ページ自体がグローバルである必要もないことです。