掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi2007でフォーム間遷移時、タスクバーのプログラム表示が消えてしまう (ID:39870)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
試してみました。 Form2は動的生成です。（選択可能フォーム） procedure TForm1.Button1Click(Sender: TObject); begin form2 := TForm2.Create(Application); try self.Hide; Form2.ShowModal; self.Show; finally Form2.Free; end; end; ====================================================== type TForm2 = class(TForm) private { Private declarations } protected procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end; ------------------------------------------------------ procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; if FormStyle in [fsNormal, fsStayOnTop] then begin if BorderStyle in [bsSingle, bsSizeable] then begin Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; Params.WndParent := GetDesktopWindow(); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.