掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEコンポーネントでTWebbrowserに縮小してHtml表示させるには？ (ID:18966)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
少しおかしいかもしれませんがこんな感じでしょうか。 # スクロールバーまで大きくなってしまう・・・ MSHTML_TLBをusesに追加してください。 なければtlibimpなどで取り込んでください。 procedure Zoom(wb: TWebBrowser; Value: Integer); var lngValue: LongInt; Doc: IHTMLDocument2; Body: IHTMLElement; objStyle: Variant; begin /// Doc := wb.Document As IHTMLDocument2; Body := Doc.body As IHTMLElement; objStyle := Body.style; objStyle.zoom := Value; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Zoom(WebBrowser1, TrackBar1.Position); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.