名前
題名
▼ Mr.XRAYさん > > function DwmGetWindowAttribute(hwnd: HWND; dwAttribute: DWORD; > > pvAttribute: Pointer; cbAttribute: DWORD): HResult; stdcall; > > > > DWMWA_EXTENDED_FRAME_BOUNDS = 9; > > 「delphi DwmGetWindowAttribute」でググったら 3 番目にありました． > > http://www.delphipraxis.net/159936-form-mit-bssingle-unter-aero-zu-gross.html > > 関数のところだけコピペして動作確認してみました． > 後は前のテストコードと同じです． > 動作確認は Windows 10(1511 ビルド 10586) 64 bit + Delphi 7 Pro > Form1 と Form2 の間に隙間があるように見えますが，隙間ではありません． > Windows 10 ではウィンドウのフレームが青いのです．それです． > > 追加したコードです． > > const > DWMWA_EXTENDED_FRAME_BOUNDS = 9; > > function DwmGetWindowAttribute(hwnd: HWND; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute: DWORD): HResult; stdcall; > external 'dwmapi.dll'; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link