function BackButtonClick(CurPageID: Integer): Boolean;
和前面的NextButtonClick函数相反,当用户单击返回按钮时调用。如果返回True,向导将移到前;如果返回False,它仍保留在当前页,测试代码略。
procedure CancelButtonClick(CurPageID: Integer; var Cancel,Confirm: Boolean);
当用户单击取消按钮或单击窗口中的关闭按钮时调用。Cancel参数指定取消进程是否该发生;默认为True。Confirm参数指定是否显示“退出安装程序吗?”的消息框;默认为True。如果Cancel设为False,那么Confirm的值将被忽略。测试代码如下:
procedure CancelButtonClick(CurPageID: Integer; var Cancel,Confirm: Boolean); begin cancel:=False; end; |
和你所预料的一样,本段代码将会导致Cancel按钮失效,即逼迫用户完成安装或者采用非正常方式终止安装程序。
procedure CancelButtonClick(CurPageID: Integer; var Cancel,Confirm: Boolean); begin Confirm:=false; end; |
而上面的这段代码将会在用户点击Cancel按钮之后直接退出,不需要做进一步的确认。
function ShouldSkipPage(PageID: Integer): Boolean;
向导调用这个事件函数确定是否在所有页或不在一个特殊页?(用PageID指定)?显示。如果返回True,将跳过该页;如果你返回False,该页被显示。注意:这个事件函数不被wpWelcome、wpPreparing和wpInstalling?页调用,还有安装程序已经确定要跳过的页也不会调用?(例如,没有包含组件安装程序的wpSelectComponents)。测试代码如下:
function ShouldSkipPage(PageID: Integer): Boolean; begin if PageID=wpSelectDir then Result:=True; end; |
本段代码将会使得安装程序跳过选择安装目录的页面,即如下页面是不会被显示的:

可用的PageID有:?wpLicense,wpPassword,wpInfoBefore,wpUserInfo,wpSelectDir,wpSelectComponents,wpSelectProgramGroup,wpSelectTasks,wpReady,wpInfoAfter,wpFinished
procedure CurPageChanged(CurPageID: Integer);
在新向导页?(由CurPageID?指定)显示后调用。测试代码如下:
procedure CurPageChanged(CurPageID: Integer); begin Msgbox('ha,new page!',MB_OK); end; |
该段代码将会导致每出现一个新的一面的时候就会弹出一个消息框。
(待续)