掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi2007でフォーム間遷移時、タスクバーのプログラム表示が消えてしまう (ID:39871)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
バッチリできました。 ありがとうございます。 子フォームがいっぱいあるので共通関数化してみました。 protected procedure CreateParams(var Params: TCreateParams); override; ------------------------------------------------------ procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; fn_DispTaskbarSetting(Self,Params); end; ------------------------------------------------------ function fn_DispTaskbarSetting(pForm:TForm; var pParams: TCreateParams) : Boolean; var ret : Boolean; begin ret := true; try if pForm.FormStyle in [fsNormal, fsStayOnTop] then begin if pForm.BorderStyle in [bsSingle, bsSizeable] then begin pParams.ExStyle := pParams.ExStyle or WS_EX_APPWINDOW; pParams.WndParent := GetDesktopWindow(); end; end except ret := false; end; Result := ret; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.