掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポップアップメニューの項目選択クリックをコードで実行するには？ (ID:30485)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Vista,D7で動作確認しました。 ListViewスタイルは下記以外も存在すると思います。 いろいろ、調べてみてください。 動かなかったらご一報ください。 //TWebBrowser上のフォルダアイコンスタイルの変更 //参考 //デスクトップ上のアイコンの並び方の変更 //http://www.occn.zaq.ne.jp/maekawa/delphitip/index.html#c029 procedure TForm1.Button3Click(Sender: TObject); var h : HWND ; GWLSTYLE : Longint; LVS : Word; begin {//usesの下に書くと楽 const LVS_ICON = $0000; LVS_REPORT = $0001; LVS_SMALLICON = $0002; LVS_LIST = $0003; LVS_TYPEMASK = $0003; } LVS:= $0003; //LVS_LIST; h := FindWindowEx(WebBrowser1.Handle , 0, 'SHELLDLL_DefView', nil); h := FindWindowEx(h, 0, 'SysListView32', nil); GWLSTYLE := GetWindowLong(h,GWL_STYLE); GWLSTYLE := GWLSTYLE and (not LVS_TYPEMASK); GWLSTYLE := GWLSTYLE or LVS ; SetWindowLong(h,GWL_STYLE,GWLSTYLE ); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.