掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
inheriteの使い方は？ (ID：20371)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
最小化・最大化を検知する例です。 Private 宣言 procedure WM_SYSCOMMAND(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND; procedure TForm1.WM_SYSCOMMAND(var Msg: TWMSYSCOMMAND); begin //パターン１(変化する前にメッセージ表示) if Msg.CmdType = SC_MINIMIZE then ShowMessage('最小化します') else if Msg.CmdType = SC_MAXIMIZE then ShowMessage('最大化します'); inherited; //最後にこれ！！ { //パターン２(変化してからメッセージ表示) inherited; //最初にこれ！！ if Msg.CmdType = SC_MINIMIZE then ShowMessage('最小化しました') else if Msg.CmdType = SC_MAXIMIZE then ShowMessage('最大化しました'); } end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.