アクティブのフォーム以外を全て最小化する
解決エクスプローラからのドラッグ&ドロップを使用するプログラムを作成しています。画面を広く使いたいため、現在開いている以外のFormを閉じたいのですが、簡単に済ます方法は無いでしょうか？
イメージとしては
MainMenuForm
⇒Form2.ShowModal
⇒Form3.ShowModal
⇒Form4.ShowModal
の状態で、Form4以外を最小化して目的のフォルダーを開きたい。
またForm4を閉じるときには、Form3以前を通常のサイズにしたい。
よろしくお願いします。
普通に閉じたほうが早いと思いますが、閉じられない理由はあるのでしょうか。
普通に最小化で対応するなら、ShowModalではなくShowで開くべきだと思います。
こうかね
Form1.Hide;
Form2.Hide;
Form3.Hide;
Form4.ShowModal;
Form3.Show;
Form2.Show;
Form1.Show;
ありがとうございました。
Form4はプログラムの数箇所から呼び出されることになります。
できれば、完結に書きたいのですが。
Application.Minimizeでは、全てのフォームが最小化されてしまいますが、似たようにスマートに1つのコマンドで自分以外のFormを最小化することはできないのでしょうか。
そこまで都合のよい関数はないと思います。
複数個所から呼び出すということであれば、関数化しておいてそれを
呼び出せば問題はないかと。
こんなのは
procedure TForm4.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Screen.FormCount-1 do begin
if (Screen.Forms[i] <> Self) then begin
Screen.Forms[i].Visible := False;
end;
end;
end;
procedure TForm4.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Screen.FormCount-1 do begin
if (Screen.Forms[i] <> Self) then begin
Screen.Forms[i].Visible := True;
end;
end;
end;
皆さんありがとうございます
Ｄさんのソースを試したのですが、Screen.Forms[i].Visible := True;によって、プログラムで使用しているけれど、まだ開いていない全てのFormまで開いてしまいました。
でも、Screen.Forms[i]については大変参考になりました。いつか使えそうな気がします。
Visibleプロパティを切り替えるのではなくて、
WindowStateプロパティを切り替えればいいんじゃないの？
>プログラムで使用しているけれど、まだ開いていない全てのFormまで開いてしまいました。
では、単純に。
procedure TForm4.FormCreate(Sender: TObject);
begin
Form1.Show;
Form2.Show;
Form3.Show;
end;
procedure TForm4.FormDestroy(Sender: TObject);
begin
Form1.Hide;
Form2.Hide;
Form3.Hide;
end;
あ、Form1じゃなくてMainMenuFormだったか。
おまけにShowとHideが逆だった。
procedure TForm4.FormCreate(Sender: TObject);
begin
MainMenuForm.Hide;
Form2.Hide;
Form3.Hide;
end;
procedure TForm4.FormDestroy(Sender: TObject);
begin
MainMenuForm.Show;
Form2.Show;
Form3.Show;
end;
「ShowModal」は「Show」でも要件を満たすのかが分からない。
「最小化」は「非表示」でも用をなすのかも分からない。
これらによっては、そもそもD氏の提示してくれているコードそのものが
無駄になるんだが。
用が足りるとして、この程度であれば、Visibleの概念1つで自己解決でき
る程度の問題だと思うが。一体何をしたいんだ？
> プログラムで使用しているけれど、まだ開いていない全てのFormまで開いてしまいました。
そういう要件あるんだったら、Ownerで呼び出し元をたどっていけばいいんじゃないの。
フォームが自動作成だったらOwnerがApplicationになるから使えないけど。
Dさんの最初の方法でも、もともとVisibleだったかどうかをTagにでも覚えさせておくとか
工夫の余地はあるんじゃない？
ちょっと工夫してみました。
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;
のようにするとか。
FormCreateの中で他のフォームの
WindowState := wsMinimized;とかHide
とか実行される？
あとShowModal元のフォームを最小化するとタスクバーには
格納されないで左下に最小化されるだけだよね
>Form4以外を最小化して...
質問者が最初にこう書いているし、質問のタイトルも「アクティブのフォーム以外を全て最小化する」だし、
FormCreateにおいて、Screen.Forms[i]での他のフォームの最小化も問題なく実行されるからいいんじゃないのかな？
まだ開いていないフォームのWindowStateを変えても実害はないし。
Form4を実行時に作成するのではなく、コンパイル時に自動生成してる場合は、
OnCreate,OnDestroyでなくて、OnShow,OnCloseイベントだね。
皆さんありがとうございました。
Ｄさんのアイディアを参考にして、かつ、まだ開いていない全てのFormまでが開かないようにするため、次のようにして解決をしました。
今後ともよろしくお願いします。
implementation
var
j: Integer;
procedure TPhotSetForm.FormShow(Sender: TObject);
var
i: Integer;
begin
j := 1;
for i := 0 to Screen.FormCount-1 do
begin
if (Screen.Forms[i] <> Self)
then begin
if Screen.Forms[i].Visible = True
then begin
arrForms[j] := Screen.Forms[i];
j := j+1;
Screen.Forms[i].Visible := False;
end;
end;
end;
end;
procedure TPhotSetForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: Integer;
begin
for i := 1 to j-1 do arrForms[i].Visible := True;
end
追加 配列の宣言が抜けていました。
implementation
var
j: Integer;
arrForms: Array[1..256] of TForm;
| ツイート |  |