掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OpenDialogで縮小版（H)をデフォルトにしたい (ID:41729)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Mr.XRAY様 いつもお世話になります。ご紹介いただいた https://www.petitmonte.com/bbs/answers?question_id=1923 でやりましたらコピペしただけで上手くいきました。またWin7（６４）でも問題なく動きました。（このソースコードでは最初から$702dになっていました。 procedure TForm1.OpenPictureDialog1FolderChange(Sender: TObject); var ViewHandle: THandle; begin ViewHandle := FindWindowEx(GetParent(OpenPictureDialog1.Handle), 0, 'SHELLDLL_DefView', nil); PostMessage(ViewHandle, WM_COMMAND, MAKEWPARAM($702d, 0), 0); Application.ProcessMessages; PostMessage(ViewHandle, WM_COMMAND, MAKEWPARAM($a006, 1), 0); end; こんない早く解決できるとは思いもよりませんでした。お礼申し上げます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.