zoukankan      html  css  js  c++  java
  • Inno Setup入门(二十四)——Inno Setup类参考(10)

    这里介绍一下FolderTreeView 类。
    TFolderTreeView = class(TCustomFolderTreeView)
      property OnChange: TNotifyEvent; read write;
      property OnRename: TFolderRenameEvent; read write;
    end;
    而TCustomFolderTreeView又继承自TWinControl,所以和其他基本控件一样具有许多类似的属性,此处不再重复。
    贴出代码段:
    [code]
    var
    myPage:TWizardPage;
      ftv: TFolderTreeView;
     
    procedure InitializeWizard();
    begin
        myPage:=CreateCustomPage(wpWelcome, '标题:自定义页面', '描述:这是我的自定义页面');
        ftv := TFolderTreeView.Create(myPage);
        ftv.Width := myPage.SurfaceWidth;
        ftv.Height := myPage.SurfaceHeight;
        ftv.Parent := myPage.Surface;
        ftv.Directory := ExpandConstant('{win}');
    end;
    有必要对 ExpandConstant进行解释一下。该函数的原型为:
    function ExpandConstant(const S: String): String;
    描述为:Changes all constants in S to their values. For example, ExpandConstant('{srcexe}') is changed to the filename of Setup.An exception will be raised if there was an error expanding the constants.
    即将字符串常量展开为所对于的路径字符串。常用的常量有{app}、{win}、{sys}、{src}、{dotnet20}等,避免了手动输入的麻烦。
    运行效果如下:
     
    另外,该类支持一个OnChange的事件,当文件夹被修改时触发。
    [code]
    var
    myPage:TWizardPage;
      ftv: TFolderTreeView;
    lbl: TLabel;
     
    procedure ChangeDir(Sender: TObject);
    begin
      lbl.Caption:=ftv.Directory;
    end;
     
    procedure InitializeWizard();
    begin
        myPage:=CreateCustomPage(wpWelcome, '标题:自定义页面', '描述:这是我的自定义页面');
        lbl:=TLabel.Create(myPage);
        lbl.Parent:=myPage.Surface;
        
        ftv := TFolderTreeView.Create(myPage);
        ftv.Top:=lbl.Height+5;
        ftv.Width := myPage.SurfaceWidth;
        ftv.Height := myPage.SurfaceHeight-20;
        ftv.Parent := myPage.Surface;
        ftv.Directory := ExpandConstant('{win}');
        ftv.OnChange:=@ChangeDir;
        lbl.Caption:=ftv.Directory;   
    end;
    这次运行的效果如下:
     可见标签的值和文件夹的值保持一致。
  • 相关阅读:
    查看windows下指定的端口是否开放
    网易云音乐评论爬虫:爬取歌曲的全部评论
    用 Python 玩转 GitHub 的贡献板
    用python实现linux口令破解
    Python 音频数据扩充的技巧
    教你使用python+Opencv完成人脸解锁
    opencv+Python特征检测及K-最近邻匹配
    opencv+python 统计及绘制直方图
    学会用这个工具做分析,1年积累3年工作经验
    15分钟,教你用Python爬网站数据,并用BI可视化分析!
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/5751931.html
Copyright © 2011-2022 走看看