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;