掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
子フォームをタスクバーに表示させた場合の最小化について (ID：46339)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 子フォームをタスクバーに表示させる処理を作成しています。 親フォーム、子フォーム共に最小化させた状態で子フォームを先に 復帰させると、親フォームが復帰しなくなります。 親フォーム、子フォームの順に復帰させると両方復帰します。 この現象はDelphi2007で作成したプログラムで発生しているのですが 同じ処理をDelphi5で行うと問題なく動作します。 アプリケーションウインドウが関連しているのかと思われますが うまく回避する方法が思いつきません。 何かよい方法はないでしょうか。 よろしくお願いします。 以下、ソースです。 新規フォームを２つ作成してForm1からForm2を表示させるだけの処理です。 Form1(親フォーム) procedure TForm1.FormCreate(Sender: TObject); begin Form2 := TForm2.Create(nil{self}); Form2.Show; end; Form2(子フォーム) procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; Params.WndParent := 0{GetDesktopWindow()}; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.