| [10213] ShellExecute等 | 返信 削除 |
| 2016/7/22 (金) 17:04:02 Mr.XRAY |
|
[ShellExecute等] これもコードが変． 良い子の皆さんは，コードは必ずコピペしてね． えっ !? お前もな ! ハイ，肝に銘じて... >Form1.Top+Form1.Height と Form2.Top の値が同じでも >４ドットの空きができてしまいます。 これは，以下の現象ですね．多分． [01_Vista 以降の拡張フレームのウィンドウ ] 動作確認は，Windows 10(1511 ビルド 10586) + Delphi XE(UP1) Pro //------------------------------------------------------------------------- // Windows Vista以降では，フォームのフレームの仕様が拡張されている // これを考慮したウィンドウのTRect構造体の値を取得 // usesにDWMAPIが必要 //------------------------------------------------------------------------- function GetWindowRectForVista(hWindow: HWND): TRect; var LRect : TRect; begin //Windows Vista以降は拡張フレーム if CheckWin32Version(6, 0) then begin //拡張したウィンドウのフレームのTRect構造体の値を取得 DwmGetWindowAttribute(hWindow, DWMWA_EXTENDED_FRAME_BOUNDS, @LRect, SizeOf(TRect)); end else begin GetWindowRect(hWindow, LRect); end; Result := LRect; end; //------------------------------------------------------------------------- // Form1のすぐ下にForm2を表示 // GetWindowRect関数で取得する場合と同じ結果になる //------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin Form2.Left := Self.Left; Form2.Top := Self.Top + Self.Height; Form2.Show; end; //------------------------------------------------------------------------- // Form1のすぐ下にForm2を表示 // Windows Vista 以降のフレームに対応したウィンドウの高さを取得して処理 //------------------------------------------------------------------------- procedure TForm1.Button2Click(Sender: TObject); var LRect : TRect; begin LRect := GetWindowRectForVista(Form1.Handle); Form2.Left := Self.Left; Form2.Top := Self.Top + (LRect.Bottom - LRect.Top); Form2.Show; end; ※ 私の環境では「空き」は 7 ドットです (ML の質問者の環境では 4 ドット)  |
