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

名前

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

本文 以下のプログラムのように 画像を複数表示するMDIアプリケーションを作成しています。 親画面の画面サイズはあらかじめ最大化しています。 画面表示はWindowTileVertical.Execute(「左右に並べて表示」)を使用して、 表示画面枠いっぱいに最大化して、3画面並ぶようにします。 「左右に並べて表示」はメニューバーに追加済みです。 procedure CreateMDIChild(image:string); var Child:MDIChild; begin MDIChild.Create(AOwner); Child.Image.Picture.LoadFromFile(pChar(image)); end; begin CreateMDIChild('C:\image\aa.jpg'); CreateMDIChild('C:\image\bb.jpg'); CreateMDIChild('C:\image\cc.jpg'); if MDIChildCount > 0 then WindowTileVertical1.Execute; end; 問題なのが、実行ファイルを動かして、 メニューバーから「左右に並べて表示」を行うと、問題なく 表示枠いっぱいに最大化された上で、表示されるのですが、 上記のプログラムでは最大化されずに、小さいサイズで表示されます。 こちらの回避方法と また、小フォーム側でサイズを変更することも行なっています。 画像サイズ固定で const Base_Height=3512; Base_Width=2486; procedure MDIChild.halfshow(Sender: TObject); begin Image.SetBounds(0,0, Round(Base_Width * 0.5), Round(Base_Height * 0.5)); end; こちらを親フォーム側から3画面ともに適用させるには どうしたら良いのかわかりません。 解決法をご存知の方、教えてください。 よろしくお願いします。