Wie kann ich TWebBrowser Zoom machen, wenn ich Strg + Mausrad verwende, wie es der Internet Explorer tut?
Gemäß
http://www.rendelmann.info/blog/CommentView,guid,356fbe68-3ed6-4781-90a4-57070a0141da.aspx undhttp://msdn.microsoft.com/en-us/library/aa770056(v=vs.85).aspx
Um den gehosteten WebBrowser mit der Steuertaste und dem Mausrad zum Zoomen zu bringen, muss lediglich ein Aufruf ausgeführt werdenIWebBrowser2.ExecWB(OLECMDID_OPTICAL_ZOOM, ...)
mit einerpvaIn
Wert von100
,
Nach dem Aufruf von Strg + Mausrad wird der Inhalt jedoch nicht vergrößert
Code, den ich mit Delphi 2007 verwende:
<code>const OLECMDID_OPTICAL_ZOOM = 63; var pvaIn, pvaOut: OleVariant; begin pvaIn := 100; pvaOut := NULL; WebBrowser1.ControlInterface.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut); end; </code>