论坛风格切换切换到宽版
  • 2133阅读
  • 2回复

虎版还得请教一个问题麻烦了,不胜感激! [复制链接]

上一主题 下一主题
离线yiyeshu2012
 

发帖
17
金钱
170
威望
17
只看楼主 倒序阅读 0 发表于: 2014-12-22
我在论坛里看到关于你回复的在 正在安装界面显示安装细节的帖子
我测试了下挺好用的
现在有一个问题是
如何让安装完之后不自动进入下一个页面
就停留在显示安装细节那个界面
需要手动点击按钮才会进入下一个界面
谢谢
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2014-12-23
按钮不好处理,因为安装程序在该页面会自动屏蔽所有按钮。如果你真的希望在此暂停,你可以弹出一个信息框,等用户点击后再继续。

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
    MsgBox('所有文件已安装完毕。', mbInformation, MB_OK);
end;
离线yiyeshu2012

发帖
17
金钱
170
威望
17
只看该作者 2 发表于: 2014-12-23
好的
谢谢虎版