名前 題名 ▼ ishimizuさん > ▼ Mr.XRAYさん > > 回答ありがとうございました。結局以下のようにしてみました。 > SetForegroundWindow, SetForegroundWindowがあると > ウィンドウの表示がおかしいのではずしています。 > FWHeight、FWWidthは、重ねて表示を実行したWindowのサイズです。 > まだ、修正の余地がありますが、実際に実装するときに検討します。 > 以上 また、よろしくお願いします。 > > FWHeight := Screen.Forms[0].Height; > FWWidth := Screen.Forms[0].Width; > > procedure TSDISubForm.menuCascadeWindowClick(Sender: TObject); > var > WndHandleList: array of HWND; > i: integer; > begin > SetLength(WndHandleList, Screen.FormCount); > > for i := 0 to Screen.FormCount - 1 do begin > Screen.Forms[i].Height := SDIMainForm.FWHeight; > Screen.Forms[i].Width := SDIMainForm.FWWidth; > Screen.Forms[i].BorderStyle := bsSingle; > WndHandleList[i] := Screen.Forms[i].Handle; > //SetForegroundWindow(WndHandleList[i]); > end; > CascadeWindows(0, > 0, {MDITILE_SKIPDISABLED,} > nil, > Screen.FormCount, > Addr(WndHandleList[0])); > > for i := 0 to Screen.FormCount - 1 do begin > Screen.Forms[i].BorderStyle := bsSizeable; > end; > //SetForegroundWindow(Handle); > end; > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link