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;