Jak zrobić powiększenie TWebBrowser, gdy używasz ctrl + kółka myszy, jak robi to Internet Explorer?

Question

Apr 20, 2012, 06:28 PM

twebbrowser delphi-2007 delphi iwebbrowser2

Jak zrobić powiększenie TWebBrowser, gdy używasz ctrl + kółka myszy, jak robi to Internet Explorer?

Według

http://www.rendelmann.info/blog/CommentView,guid,356fbe68-3ed6-4781-90a4-57070a0141da.aspx ihttp://msdn.microsoft.com/en-us/library/aa770056(v=vs.85).aspx

przybliżenie hostowanej przeglądarki WebBrowser za pomocą klawisza sterującego, a kółko myszy wymaga tylko wywołaniaIWebBrowser2.ExecWB(OLECMDID_OPTICAL_ZOOM, ...) zpvaIn wartość100,
ale po wywołaniu ctrl + kółko myszy nadal nie powiększa zawartości

Kod, którego używam z Delphi 2007:

<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>