掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SaveDialogの不審な挙動 (ID:25141)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
試してみたところ、 Delphi5では、 ADir := 'c:\Program Files'; ADir := 'c:'; ADir := 'a:'; // FDをドライブに挿入すること。 いずれもダイアログは表示されました。 procedure TForm1.Button1Click(Sender: TObject); var ADir: String; begin ADir := 'c:\Program Files'; //ADir := 'c:'; //ADir := 'a:'; // FDをドライブに挿入すること。 if not DirectoryExists(ADir) then begin MessageDlg('「' + ADir + '」が見つかりません。', mtError, [mbOk], 0); exit; end; SaveDialog1.InitialDir := ADir; if SaveDialog1.Execute then begin MessageDlg('「保存」を選択しました。', mtInformation, [mbOk], 0); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.