掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のFormのfsStayOnTopの関係について (ID:23039)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっと目先を変えて、こんなのは？ フォームに重なりがあると、違和感がありますけど。 type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure AppDeactivate(Sender: TObject); end; procedure WindowTopMost(Handle: THandle); begin SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); end; procedure TForm1.AppDeactivate(Sender: TObject); var i:Integer; begin for i := 0 to Screen.FormCount -1 do begin if Screen.Forms[i] <> Screen.ActiveForm then begin WindowTopMost(Screen.Forms[i].Handle); end; end; if Screen.ActiveForm <> nil then begin WindowTopMost(Screen.ActiveForm.Handle); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnDeactivate := AppDeactivate; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.