掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
上書き保存の時に確認ダイアログを出すには？ (ID:20924)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私はいつもFileExistsで調べています。 ベタで書くならば、次のような感じ。 if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then if (MessageDlg('overwrite?', mtConfirmation,[mbYes,mbNo],0)<>mrYes) then Exit; try Something.SaveToFile( SaveDialog1.FileName); except MessageDlg('i/o error maybe',mtInformation,[mbOK],0) end end; MessageDlgはF1キーのヘルプで調べてください。 mbOK に対応する リターンは mrOK のように b と r の部分が違うんで ヘルプを参照して型を確認してください。 exceptは、たぶんいりません。同じような例外表示が普通に出ます。 Delphi製アプリって謎なエラー表示が多いんだけどってユーザーに 思われたくない場合は、キャッチして処理したほうがよいでしょう（汗）
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.