inno setup 安装路径框学习

inno setup 安装路径框学习

路径显示控件需要用到TEdit控件，实例如下所示：

VAR

edit_target_path : TEdit; //路径

//添加路径控件 路径的边框其实只需要做界面的时候画图即可   edit_target_path:= TEdit.Create(WizardForm);   WITH edit_target_path DO   BEGIN     Parent := WizardForm;     Text := WizardForm.DirEdit.Text;     Font.Name := 'Microsoft YaHei';     Font.Size := 9;     BorderStyle := bsNone;     SetBounds(91,423,402,20);     OnChange := @edit_target_path_on_change;     Color := clWhite;     TabStop := FALSE;   END;   edit_target_path.Hide(); //表示隐藏

路径文本的改变事件：

//路径输入框文本变化时执行的脚本 PROCEDURE edit_target_path_on_change(Sender : TObject); BEGIN   WizardForm.DirEdit.Text := edit_target_path.Text; END;

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。