掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アクティブのフォーム以外を全て最小化する (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; のようにするとか。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.