Inno Setup的：从另一个控制的OnClick事件访问自定义控制

Question

我对Inno Setup的下一个代码：

procedure CheckBoxClick(Sender: TObject); 
begin 
    { How to make BrowseButton visible from here? } 
end; 

procedure CreateTheWizardPage; 
var 
    Page: TWizardPage; 
    BrowseButton, FormButton: TNewButton; 
    CheckBox: TNewCheckBox; 
    Memo: TNewMemo; 
begin 
    Page := PageFromID(wpReady);  
    BrowseButton := TNewButton.Create(Page); 
    CheckBox := TNewCheckBox.Create(Page); 
    CheckBox.OnClick := @CheckBoxClick; 
end; 

我不知道我怎样才能访问自定义控制器向导页从处理程序一个他们？

Answer 1

你必须使BrowseButton变量全球和事件处理程序之前定义它：

var 
    BrowseButton: TButton; 

procedure CheckBoxClick(Sender: TObject); 
begin 
    { Now you can use the BrowseButton here } 
end; 

procedure CreateTheWizardPage; 
var 
    Page: TWizardPage; 
    FormButton: TNewButton; 
    CheckBox: TNewCheckBox; 
    Memo: TNewMemo; 
begin 
    Page := PageFromID(wpReady);  
    BrowseButton := TNewButton.Create(Page); 
    CheckBox := TNewCheckBox.Create(Page); 
    CheckBox.OnClick := @CheckBoxClick; 
end;