掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWebBrowserにWindowsメッセージを送るには (ID：12635)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ページトップと ページ末端を表示しようと思い TWebBrowserのスクロールバーのコマンドがわからないので HomeやEndキーで同じことができると思いましたがキーを受け付けてくれません PageDownでコード書きましたが Memoは動作しますがTWebBrowserは動作しません TWebBrowser.HWNDの説明に Web ブラウザの Window ハンドルへのアクセスを提供します。 とあるので SendMessage(WebBrowser1.HWND, WM_KEYDOWN ,VK_END , 0); を送るとエラーで落ちます。 procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := 'c:\BOOTLOG.TXT'; WebBrowser1.Navigate(s); Memo1.Lines.LoadFromFile(s); Memo1.ScrollBars := ssBoth; end; procedure TForm1.Button2Click(Sender: TObject); var Msg : TMessage; begin msg.WParam := VK_NEXT; // PageDown msg.LParam := 0; WebBrowser1.Perform(WM_KEYDOWN,Msg.WParam,Msg.LParam); Memo1.Perform(WM_KEYDOWN ,Msg.WParam,Msg.LParam); end; どうやったらTWebBrowserの画面をコードでスクロールできるのでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.