掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
他アプリに隠れるfsStayOnTop (ID：22441)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.ApplicationEvents1Activate(Sender: TObject); begin if Assigned(Form3) then begin if Form3.FormStyle = fsNormal then begin Form3.FormStyle := fsStayOnTop; end; end; end; procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject); begin if Assigned(Form3) then begin if Form3.FormStyle = fsStayOnTop then begin Form3.FormStyle := fsNormal; end; end; end; これでどうですか？ たぶん、お望みの動作だと思います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.