当输入不是“管理员”时,我需要禁用下一步按钮。
就像是:
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
{ enable the next button if the value in the box is admin; disable otherwise }
WizardForm.NextButton.Enabled:=InputPage6.values[EditIndex2].Text = 'Admin'
end;
实现输入框OnChange
事件。您还需要确保在激活自定义页面时更新按钮状态。您可以OnActivate
为此使用事件(或CurPageChanged
事件函数)。
var
Page: TInputQueryWizardPage;
procedure ValidatePage;
begin
WizardForm.NextButton.Enabled := (CompareText(Page.Values[0], 'Admin') = 0);
end;
procedure EditChange(Sender: TObject);
begin
ValidatePage;
end;
procedure PageActivate(Sender: TWizardPage);
begin
ValidatePage;
end;
procedure InitializeWizard();
begin
Page := CreateInputQueryPage(...);
{ To disable the Next button initially [when box is empty] }
Page.OnActivate := @PageActivate;
Page.Add(..., False);
{ Update Next button state on any input change (typing, copy&paste, whatever) }
Page.Edits[0].OnChange := @EditChange;
end;
要组合多个验证,请参阅Inno Setup Disable Next 按钮使用多个验证表达式(当输入值匹配多个值之一时)。
对于其他方法,请参阅:
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句