ＭＤＩアプリケーションで子ウィンドウを最大化するには？

解決

しし丸 2004-11-18 07:12:32 No: 11805

ＭＤＩを使用して、新規で子ウィンドウを表示できているのですが、
親ウィンドウ表示時に、はじめから子ウィンドウを最大化で開いておきたいのですが、下記のソースをどこのイベントに表示して良いか分かりません。

  Child := Window.Create(Application);
  Child.WindowState := wsMaximized;
  Child.WebBrowser1.GoHome;

子ウィンドウが表示されるのですが、ノーマルウィンドウが表示された後に
最大化されます。はじめから、子ウィンドウの最大化表示はできないのですか？

とと丸 2004-11-18 09:43:42 No: 11806

新規で Form1 を fsMDIForm （MDI親フォーム）、Form2 を fsMDIChild
（MDI子フォーム）にし、Form2 を自動生成の対象からはずしておき

uses
Unit2;

procedure TForm1.FormShow(Sender: TObject);
begin
with TForm2.Create(Application) do Show;
OnShow := nil;
end;

として Form1 の OnShow イベントハンドラで Form2 を１つ作成し表示します。
一方、

procedure TForm2.FormShow(Sender: TObject);
begin
  WindowState := wsMaximized;
  WebBrowser1.GoHome;
  OnShow := nil;
end;

とし、Form2 は自分が表示されるとき一度だけ最大化し、WebBrowser1 にホームを
表示します。D5 ではうまくいっています。

しし丸 2004-11-18 21:30:17 No: 11807

はじめの子ウィンドウは、きれいに開きました。
ですが、二つめ以降の子ウィンドウの表示がうまくいきません。

> Form2 を自動生成の対象からはずしておき

この設定が良く分かりません。
申し訳ありませんが、もう少しアドバイスをいただけますか。

にしの 2004-11-18 21:43:40 No: 11808

設計時に、ChildFormのWindowStateをwsMaxmizedにしておけばよいのでは？

しし丸 2004-11-18 23:07:58 No: 11809

はじめからwsMaxmizedに設定しておいても、
ノーマル表示 → 最大化表示になってしまいます。

デバックして確認したのですが、OnShow イベントハンドラで
WindowState := wsMaximized
と設定しても子ウィンドウの最大化になる動作が見えてしまいます。

MDIChildCountが0のときに子ウィンドウを開く場合は、最大化表示したいのですが、どう設定を変えてもウィンドウが最大化になる動作が見えてしまいます。

他の方法はないでしょうか。

お願いします。

とおりすがりん 2004-11-19 05:26:42 No: 11810

http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=043597
こんなのがありますけど、私はできませんでした。
もし成功したらソース書いてくれると嬉しいです。

にしの 2004-11-19 05:29:01 No: 11811

確かに１つ目はアニメーションしてしまいますね。
パネルで隠すのはどうでしょう。
必要に応じて、パネルの枠や色を変更してください。

設計時
１．パネル(name=Panel1)を親フォームに貼り付ける
２．Panel1のAlignをalClientに変更
３．Panel1のAlignをalNoneに変更(これで子フォームと同じ大きさのパネルができる)
４．Panel1のAnchorを全てtrueにする(これで親フォームの大きさを変えられても追従する)

子フォームを作成するイベントにて以下の定義。
var
isZero: Boolean;
begin
isZero := MDIChildCount = 0; // 子フォームの数が０ならtrue

  if isZero then Panel1.Visible := True; // 子フォームの数が０だったらパネルを表示
  with TForm2.Create(Application) do
  begin
{ 子フォームに対していろいろ設定)
  end;
  if isZero then Panel1.Visible := False; // 子フォームの数が０だったらパネルを非表示
end;

にしの 2004-11-19 05:36:41 No: 11812

とおりすがりんへ。
リンクの通りで動きましたよ。
# Delphi7Pro+WinXPSP2

もしかして、子フォームの作成でApplicationを指定していませんか？親フォームを指定すれば動くと思います。

とおりすがりん 2004-11-19 08:10:55 No: 11813

をを！！本当だ。動きました。

Applicationじゃいけなかったんですか、、、
いや〜、作るの面倒だからって新規作成からMDIアプリ作ってたら、Application指定してるんですね。そんなこととは気づかずに、、、虚しさ爆発です。
にしのさん。どうもですぅ〜。

しし丸 2004-11-19 11:03:10 No: 11814

「とと丸」さん、「にしの」さん、助かりました。
ありがとうございます。

「とおりすがり」さんの情報も助かりました。
アニメーションが消せるとは思いもしませんでした。

ありがとうございます。