Не работает JavaScript в компоненте WebBrowser

[newerow1989]

Здравствуйте!

Не могу запустить сценарий в WebBrowser. Посмотрите, где здесь ошибка?
Во всех браузерах работает, а на Delphi - нет.

WebBrowser.rar

[DIONISKA]

Дело не в delphi, а в TWebBrowser: он работает в режиме эмуляциии ie7, идущей по-умолчанию. Этот режим можно изменить в ветке реестра:

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\

. Более подробно про это можно почитать тут
Как одно из решений, можно добавить в раздел инициализации примерно такой код:

var
  reg:TRegistry;
  key:string;

  initialization
{$IFDEF MSWINDOWS }
reg:=TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
key:='SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\';
reg.OpenKey(key,true);
if reg.ValueExists(ExtractFileName(ParamStr(0))) then
  else reg.WriteInteger(ExtractFileName(ParamStr(0)),$00002af9);// это значение для ie11
  reg.CloseKey;
  reg.Free;
{$ENDIF}

[uberchel]

К тому же, кроме всего выше написанного, у вас ошибка в размещении кода, он выше, а тег с ID ниже, скрипт просто не видит его, так что вам нужно поместить код js перед закрывающемся кодом body, либо сделать ожидание загрузки всего документа:

document.onload = function () {
    // тут код вызова
}

[newerow1989]

DIONISKA, спасибо за помощь!