Delphi TOpenDialog的使用介绍以及如何动态创建和释放

Delphi TOpenDialog的使用介绍以及如何动态创建和释放

1、常用属性

• DefaultExt：当用户未输入文件扩展名时它用于指明默认的扩展名。
• FileName：它为string型用于记录最后一个被选中的文件的全路径名。默认为空。
• Filter（过滤器）：它用于设置打开对话框中显示的文件类型，实在打开的对话框中仅显示与该特性所列的相匹配的文件。在程序设计阶段用户可以在对象观察器中，单击Filter特性值框中的“...”按钮，将弹出Filter Editor 对话框，可以在此设置预显示文件的扩展名，既设置过滤器。用户还可以在程序代码中动态的设置该特性值。例如： Filter：='delphi uint Files|*.pas;*.dpr';
• FilterIndex：该特性为integer类型，在设置了多个过滤器时，用于确定在打开对话框中文件类型下拉列表中初始显示的过滤器的序号，其默认值为1。
• InitilDir：用它指明对话框的默认目录。
• Title特性：用它指明OpenDialog 组件标题栏中的字符串，默认值为“打开”。

2、常用方法
Execute： 起作用是打开对话框，用户单击“打开”或OK按钮，该方法返回值为true；用户单击“取消”或Cancel按钮，该方法返回值为False。
常用打开文件的代码示例：

if OpenDialog1.Execute then  //打开文件操作
begin
  Edit1.Text:=OpenPictureDialog1.FileName;
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

3、动态创建和释放

var
  OpenDlg: TOpenDialog;
  strFileName: string;
begin
  OpenDlg := TOpenDialog.Create(nil);
  try
    OpenDlg.Filter := '可执行文件(*.EXE)|*.EXE|全部文件(*.*)|*.*';
    OpenDlg.DefaultExt := '*.EXE';
    if OpenDlg.Execute then
    begin
      strFileName := Trim(OpenDlg.FileName);
      if strFileName <> '' then
      begin
        edtProtocolApplication.Text := strFileName;
      end;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;

　　

创建时间：2020.11.02　　更新时间：