MDIアプリでの画面表示について (ID:44497)

名前

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

本文

>上記のプログラムでは最大化されずに、小さいサイズで表示されます。

提示されたコードでは，再現の確認ができないので分かりません．
  Child:MDIChild; でエラーとなります．
  
>こちらを親フォーム側から3画面ともに適用させるには  
>解決法をご存知の方、教えてください。

解決方法は分かりませんが，以下のようなテストをしてみました．
動作確認環境は，Windows U64(SP1) + Delphi XE Pro です．

この程度のコードと説明内容だったら提示できそうな気がするのですが，
企業秘密かな ?

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateMDIChild('ABC.bmp');
  CreateMDIChild('ABC.bmp');
  CreateMDIChild('ABC.bmp');

if MDIChildCount > 0 then
     WindowTileVertical1.Execute;
end;

//-----------------------------------------------------------------------------
//  Form2は，このForm1(FormStyle はfsMDIForm)の子フォームでユニット名はUnit2
//  以下の手順でプロジェクトに追加
//  (1) [新規作成][フォーム]で作成
//  (2) [プロジェクト][オプション][フォーム]で[使用可能フォーム]にする
//  (3) FormStyle をfsMDIChild にする
//  (4) TImage を 1 つ配置
//  (5) uses に Unit2 を追加
//-----------------------------------------------------------------------------
procedure TForm1.CreateMDIChild(image: string);
begin
  Form2 := TForm2.Create(Application);
  Form2.Image1.Picture.LoadFromFile(pChar(image));
end;

//-----------------------------------------------------------------------------
//  上のコードで生成した全ての子フォーム上のImage1のサイズを変更
//-----------------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  if not Assigned(Form2) then exit;

for i := 0 to MDIChildCount - 1 do begin
    TForm2(MDIChildren[i]).Image1.Width  := 200;
    TForm2(MDIChildren[i]).Image1.Height := 250;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る