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　　更新時間：