路径显示控件需要用到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;