掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWebBrowserにWindowsメッセージを送るには (ID:12641)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こっちだとTOleControl(WebBrowser1).Visible := Falseでも反応しました♪ function GetWebBrowserHandle(Web1 : TWebBrowser) : hwnd; // 0 ロードされていない。 // それ以外たぶん WebBrowserHandle var Pt : TPoint; h : hwnd; begin Pt := Point(0,0); h := ChildWindowFromPoint(Web1.Handle,Pt); h := ChildWindowFromPoint(h,Pt); if (Web1.Handle = h ) then Result := 0 else Result := h; end; procedure TForm1.Button5Click(Sender: TObject); var h : hwnd; begin h := GetWebBrowserHandle(WebBrowser1); if (h>0) then SendMessage(h, WM_KEYDOWN ,VK_END , 0); end; ＞参考まで， ＞https://www.petitmonte.com/bbs/answers?question_id=1451 探してくれてありがとうございます。 そちらの方も試してみようと思います
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.