مشکل با TWebBrowser

[BORHAN TEC]

با سلام،
دوست عزیز کامپوننت TWebBrowser به صورت پیش فرض با نسخه های فسیل شده Internet Explorer سازگار است و برای حل این مشکل باید مشخص کنید که از کدام نسخه IE می خواهید به عنوان یک ایمولاتور برای رندر صفحات وب استفاده کنید. این کار با اعمال تنظیمی در رجیستری امکان پذیر است. به عنوان مثال برای اعمال سازگاری برنامه با IE 10 می توانید از کد زیر استفاده کنید:

procedure TForm1.btnIE10EmulatorClick(Sender: TObject);var

  RegObj: TRegistry;

begin

  RegObj := TRegistry.Create;

  try

    RegObj.RootKey := HKEY_LOCAL_MACHINE;

    RegObj.Access := KEY_ALL_ACCESS;





    if (TOSVersion.Architecture = arIntelX64) then

    begin

      RegObj.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\In  ternet ' +

        'Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMUL  ATION', True);

    end

    else if (TOSVersion.Architecture = arIntelX86) then

    begin

      RegObj.OpenKey('\SOFTWARE\Microsoft\Internet ' +

        'Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMUL  ATION', True);

    end;





    RegObj.WriteInteger(ExtractFileName(Application.Ex  eName), 10000); // for other versions read msdn

  finally

    RegObj.Free;

  end;

end;

منبع: msdn
موفق باشید...