我认为最好是检查wpFinished页单选按钮的状态,当用户单击完成:
function NextButtonClick(CurPageID: Integer): Boolean;
begin
if(CurPageID = wpFinished) then
begin
// User clicked Finish on Finish page, check state of radio buttons
if(WizardForm.NoRadio.Checked = True) then
MsgBox('User selected Reboot Later.', mbInformation, MB_OK);
end;
Result := True; // Move to next page
end;
(未测试,我写了这个从我的头)
如果您想立即响应用户操作,您需要使用OnClick事件(TNotifyEvent):
编写您的处理程序:
procedure ClickEvent(Sender : TObject);
begin
// Do something here...
end;
分配Click事件(在InitializeWizard()或任何其他程序):
WizardForm.YesRadio.OnClick := @ClickEvent;
or
WizardForm.NoRadio.OnClick := @ClickEvent;