【3.Delphi常用组件】8.对话框_delphi opendialog-优快云博客

本文详细介绍了Delphi中OpenDialog、SaveDialog、FontDialog和ColorDialog组件的用法，包括各自属性、方法，并提供了在Label上展示选择文件、保存文件、字体和颜色的示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;