在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
在程序运行期间调用各种公用对话框很简单,只需使用Execute方法即可。Dialogs类引入了抽象的Execute函数。 TOpenDialog——打开文件对话框组件,用它选择文件和浏览目录 TSaveDialog——保存文件对话框组件,用它类输入或选择文件名以及浏览目录 TFontDialog——字体设置对话框组件,用它可以允许用户选择字体进行设置 TColorDialog——颜色设置对话框组件,是一个通用的颜色选择工具 TOpenPictureDialog——打开图像对话框组件,比普通打开对话框多图像预览区域 TSavePictureDialog——保存图像对话框组件,可以对图像进行预览 TFindDialog——查找对话框组件,用于完成数据查找工作 TReplaceDialog——替换对话框组件,用它完成查找并替换这一操作 TPrintDialog——打印对话框组件,用来给打印进分配一个打印作业 TPrinterSetupDialog——打印机设置对话框组件,用来对打印机进行设置 文件选择型对话框组件 常用的对话框组件了,它包括了OpenDialog、SaveDialog、OpenPictureDialog和SavePictureDialog四种对话框组件,允许浏览、切换目录,并使用通配符选择一组文件. 主要属性如下: Default——默认扩展名。当所选文件扩展名没有注册时,默认扩展名就会加在文件名末尾,不能超过三个字符,不要在前面加上“.”。 FileName——记录最后一次选取的文件完整路径(只用于OpenDialog) Filter——对文件类型的过滤规则 FilterIndex——默认过滤规则序号。第一条序号为1,第二条为2,以此类推。 HelpContext——如果程序有联机帮助,该属性用来指定本对话框帮助位于帮助文件的位置。 InitialDir——对话框打开时会将初始路径作为当前目录。 Options——对话框的外观等一些选项 OptionsEx——更进一步定制对话框的选项 Title——对话框的标题 HistoryList——记录了打开文件的历史列表,是为兼容以前版本而保留的,不推荐使用。 Files——运行期才可见,以TStrings的形式记录了所有选定文件的文件名和完整路径。选定多个文件时,需要将Options属性中的ofAllowMultiSelect设置为True,并用“Files[i]”的形式得到每个文件名。 经常要用到定义文件类型的过滤规则, 用管道号(|)把描述和过滤器分开,例如: OpenDialog1.Filter := '文本文件(*.txt)|*.txt|超文本文件(*.htm)|*.htm|脚本文件(*.asp)|*.asp|所有文件(*.*)|*.*';
可以不把OpenDialog组件放到窗体上,而通过在运行期间通过建立TOpenDialog类的实例,调用其Execute方法,代码如下: procedure TForm1.Button4Click(Sender: TObject); var OpenDlg: TOpenDialog; begin OpenDlg := TOpenDialog.Create(Self); if OpenDlg.Execute then begin { 用户点击了OK,选择了文件} Memo1.Lines.LoadFromFile(OpenDlg.FileName); { 做一些其它的操作} end; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论