如何在InputFilePage（CreateInputFilePage）上未選擇文件時禁用NextButton？

Question

我的Inno Setup程序有一個使用CreateInputFilePage創建的自定義「輸入文件頁面」。

如何在此頁面中禁用NextButton，直到文件路徑被用戶正確選取爲止？

換句話說，我需要使NextButton不可點擊，而文件選擇表單是空的，並且在填充文件選擇表單時可點擊。

謝謝。

Answer 1

最簡單的方法是使用NextButtonClick驗證輸入，並在驗證失敗時顯示錯誤消息。

var 
    FilePage: TInputFileWizardPage; 

procedure InitializeWizard(); 
begin 
    FilePage := CreateInputFilePage(wpSelectDir, 'caption', 'description', 'sub caption'); 
    FilePage.Add('prompt', '*.*', '.dat'); 
end; 

function NextButtonClick(CurPageID: Integer): Boolean; 
begin 
    Result := True; 

    if (CurPageID = FilePage.ID) and 
    (Length(FilePage.Edits[0].Text) = 0) then 
    begin 
    MsgBox('Please select a file.', mbError, MB_OK); 
    WizardForm.ActiveControl := FilePage.Edits[0]; 
    Result := False; 
    end; 
end; 

---

如果你真的要更新，而輸入的變化「下一步」按鈕狀態，這是一個比較複雜：

procedure FilePageEditChange(Sender: TObject); 
begin 
    WizardForm.NextButton.Enabled := (Length(TEdit(Sender).Text) > 0); 
end; 

procedure FilePageActivate(Sender: TWizardPage); 
begin 
    FilePageEditChange(TInputFileWizardPage(Sender).Edits[0]); 
end; 

procedure InitializeWizard(); 
var 
    Page: TInputFileWizardPage; 
    Edit: TEdit; 
begin 
    Page := CreateInputFilePage(wpSelectDir, 'caption', 'description', 'sub caption'); 
    { To update the Next button state when the page is entered } 
    Page.OnActivate := @FilePageActivate; 

    Edit := Page.Edits[Page.Add('prompt', '*.*', '.dat')]; 
    { To update the Next button state when the edit contents changes } 
    Edit.OnChange := @FilePageEditChange; 
end;