「3.Delphi常用组件」8.对话框（对话框简笔画）

zhezhongyun 2025-03-20 21:06 32 浏览

8.对话框

在Delphi中提供了一系列标准对话框。

8.1 打开文件对话框OpenDialog

组件OpenDialog用于打开一个已经存在的文件，当选择一个文件后，选择的文件通过OpenDialog的FileName属性。其主要属性如下：

属性	说明
DefaultExt	设置默认的文件扩展名
Filter	设置可打开的文件类型
FilterIndex	设置默认的Filter值，索引从1开始
InitialDir	设置对话框打开的初始化路径
Options	设置对话框的表现形式，包括：可多选、是否长文件名、是否可调整对话框大小等

主要方法：

方法	说明
Execute	打开对话框，如果返回True则表示选择了确定操作，如果返回False则表示选择了取消操作

8.2 保存文件对话框SaveDialog

组件SaveDialog用于保存文件，用户设置的文件通过SaveDialog的FileName返回。属性及方法与OpenDialog组件相似。

8.3 字体对话框 FontDialog

字体对话框 FontDialog 用于字体的选择，可以设置字体名、样式、大小等。选择好的结果通过FontDialog的Font属性返回。

8.4 颜色对话框 ColorDialog

颜色对话框ColorDialog用于颜色的选择，选择结果通过ColorDialog的Color属性返回。

8.5 综合使用对话框示例

示例：在Label上显示选择打开的文件、选择保存的文件、并设置标签的字体及文本的颜色。

界面如下图：

代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 打开文件
  if OpenDialog1.Execute then
    Label1.Caption := '打开文件：' + OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 保存文件
  if SaveDialog1.Execute then
    Label1.Caption := '打开文件：' + SaveDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  // 字体选择
  if FontDialog1.Execute then
    Label1.Font := FontDialog1.Font;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // 颜色选择
  if ColorDialog1.Execute then
    Label1.Font.Color := ColorDialog1.Color;
end;

标签

上一篇：vue3.0系列:Vue3自定义PC端弹窗组件V3Layer
下一篇：HTML基础知识(三) HTML标签知识2（html基本标签大全）

「3.Delphi常用组件」8.对话框（对话框简笔画）

8.对话框

8.1 打开文件对话框OpenDialog

8.2 保存文件对话框SaveDialog

8.3 字体对话框 FontDialog

8.4 颜色对话框 ColorDialog

8.5 综合使用对话框示例

相关推荐

b端详情页:各种信息聚集地，设计师要如何规划这一亩三分地呢

接口测试遇到500报错?别慌，你的头部可能有点问题

漏洞系列一一看我一招征服漏洞 SSRF

Web前端需要学什么?Web前端开发需要学习哪些?

前端Flex布局可视化布局工具介绍，vue和html5快速设计利器

「资讯」为强迫用户使用Edge浏览器，微软又出新招数

HTML 简介（html简介及优缺点）

HBuilderX，uni-app创建HTML5项目，同时支持浏览器和移动端

关于HTML5被简称做H5，你怎么看?（html5缩写）

现在页面实时聊天都使用Websocket技术实现吗?