掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームが閉じられるのをキャンセルさせるには？ (ID：10896)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちなみにこれはテキストエディタGoopadのソースの一部を少し変えたものです。 だいぶ昔に書いたので汚くてわかりにくいですが。 procedure TMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var stop:boolean; begin stop:=false; canclose:=true; if MainEdit.Modified then //MainEditというのはメモコンポです begin while stop=false do begin case MessageDlg('編集中のファイルを保存しますか？', mtConfirmation,[mbYes,mbNo,mbCancel],0) of id_Yes: stop:=Filesave; //FileSaveってのは保存に成功するとTrueを返す関数 id_No: stop:=True; id_Cancel: begin canclose:=false;stop:=True; end; end; end; end; if CanClose and Application.Active then begin {設定の保存} end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.