アクティブのフォーム以外を全て最小化する (ID:36342)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちょっと工夫してみました。 procedure FormVisible(Forms: array of TForm; bVisible: Boolean); var i: Integer; begin for i := 0 to High(Forms) do begin Forms[i].Visible := bVisible; end; end; procedure TForm4.FormCreate(Sender: TObject); begin FormVisible([MainMenuForm, Form2, Form3], False); end; procedure TForm4.FormDestroy(Sender: TObject); begin FormVisible([MainMenuForm, Form2, Form3], True); end; >画面を広く使いたいため、現在開いている以外のFormを閉じたい とのことなので最小化よりはKHE00221さんがやってるように見えなくした方が良かろうと思いVisibleのセットにしましたが、最小化の方が良いのであれば for i := 0 to High(Forms) do begin if (bVisible) then begin Forms[i].WindowState := wsNormal; end else begin Forms[i].WindowState := wsMinimized; end; end; のようにするとか。