掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphiフォームを最小化から元に戻す (ID:16274)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi7 Professional WinXP Pro SP1 やろうとしている事は、最小化されたDelphiフォームをホットキーにて元に戻すという動作です。 Delphiで作成したFormを最小化し、ShowWindowAsync(Handle, SW_RESTORE);で元に戻した場合、再度最小化することが出来なくなってしまいます。 タスクバーの部分を右クリックすると、元に戻ったことを感知できていないのか、元に戻すのメニューが残ったままで、逆に最小化するメニューは使用不可な状態になっています。 メモ帳などのDelphi以外のアプリケーションでは、普通に最小化からの復帰を繰り返すことができるのですが、Delphiフォームに限りこのような症状になっています。 どなたか原因がわかる方いらっしゃいませんでしょうか。以下がソースの一部です。 //------------------------------------------------------------------------------ // ホットキーが押された時の処理 //------------------------------------------------------------------------------ procedure TForm1.WMHotKey(var Msg: TWMHotKey); var HD:HWND; begin if Msg.HotKey = ID then begin ShowWindowAsync(Handle, SW_RESTORE); SetForeGroundWindow(Handle); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.