掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Formを最小化する前にメッセージを出すには？ (ID：12257)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ type TForm2 = class(TForm) private { Private 宣言 } public procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND; end; var Form2: TForm2; implementation {$R *.DFM} procedure TForm2.WMSysCommand(var Msg:TWMSysCommand); begin case Msg.CmdType and $FFF0 of SC_MINIMIZE: if MessageDlg('Form2 を最小化しますか？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then inherited; SC_MAXIMIZE: if MessageDlg('Form2 を最大化しますか？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then inherited; else inherited; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.