AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Internet / LAN / ASP.NET TWebbrowser - Umschalten zwischen IE7- und IE8-Modus

TWebbrowser - Umschalten zwischen IE7- und IE8-Modus

Ein Thema von fkerber · begonnen am 18. Dez 2009
Antwort Antwort
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.698 Beiträge
 
Delphi XE Professional
 
#1

TWebbrowser - Umschalten zwischen IE7- und IE8-Modus

  Alt 18. Dez 2009, 08:59
toms stellt hier eine Prozedur vor, die es ermöglicht, für sein Programm einzustellen, ob verwendete TWebbrowser-Komponenten im IE7- oder IE8-Modus laufen sollen.

Delphi-Quellcode:
uses
Registry;

type
  TIEMode = (iemIE7, iemIE8);
  // iemIE8: To run a WebBrowser control in IE8 Standards Mode
  // iemIE7: To run in IE7 Standards Mode

procedure SetWebbrowserMode(Mode: TIEMode; AppName: string = '');
const
  REG_KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
var
  Reg: TRegistry;
  Value: Integer;
begin
  if AppName = 'then
    AppName := ExtractFileName(Application.ExeName);
  Case Mode of
    iemIE7 : Value := $1B58;
    iemIE8 : Value := $1F40;
  end;
  Reg := TRegistry.Create();
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(REG_KEY, True) then
    begin
      Reg.WriteInteger(AppName, Value);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;
Ein Beispielaufruf könnte so aussehen:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWebbrowserMode(iemIE8)
end;
Frederic Kerber
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf