掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEコンポーネントでTWebbrowserに縮小してHtml表示させるには？ (ID:18967)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>>にしのさんソース例ありがとうございます。 現在、 WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75; //0.75＝75％のサイズ(数値を変えれば好きなサイズに変更可) でブラウザの拡大と縮小が出来る事が分かりました。 その上で、Form1にあるEdit1に表示させたいwebページのURLを記入して、Form1にあるButtom1を押すと、Form2が開き、Form2にあるWebBrowser1がForm1のEdit1に記してあるURLのページを表示させると同時に縮小化させる、という動作をさせたいと思っています。 Webbrowser1にForm1のEdit1で指定したwebページを表示させるまでは問題無いのですが、いざ縮小化させる時、 Form2.WebBrowser1.Navigate(Edit1.text); //Form1Edit1のURLをwebbrowserへ Form2.Show; //Form2を表示 Form2.WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75; //Form2のWebbrowser表示の縮小処理 とするとデバッガ例外が発生してしまいます。 Form2の記述で、 procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75; end; という感じにすれば縮小化はされるんですが、表示された時すぐに縮小化したいのです。 エラーの原因もしくは、何か良い手は無いでしょうか？ よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.