掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クローズボックスをクリックしても、終了させない方法 (ID：3863)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
クローズボックスをクリックしても、そのアプリケーションを終了させない方法について、質問があります。 自分なりに考えた結果、以下のコードで実装することは出来たのですが、 なんか、動作が怪しい気がします。 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var Ret:Integer; msg: TMsg; begin Ret := MessageBox(Handle, '終了しますか？', '終了', MB_OKCANCEL or MB_ICONHAND); if Ret = IDCANCEL then begin while GetMessage(Msg, 0, 0, 0) do begin TranslateMessage(Msg); DispatchMessage(Msg); end; Halt(Msg.wParam); end; end; もっといい方法は無いでしょうか？ どなたか、よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.