• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi的VCL公用对话框组件

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

在程序运行期间调用各种公用对话框很简单,只需使用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;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap