複数の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;