Hola,
Lo primero que yo probaría sería indicar a Windows que nuestro "WebBrowser" ha de emular una versión más o menos "moderna" de Internet Explorer. Por ejemplo, la siguiente unidad (copiada aquí ahora un poco deprisa, creo que funcionará sin cambio alguno) lo que hace es indicar que nuestro "WebBrowser" quiere comportarse como un Internet Explorer 11, si es que este se encuentra instalado en el sistema.
Código Delphi
[-]
unit IEBrowserFix;
interface
type
TIEBrowserFix = class(TObject)
public
class procedure Initialize();
class procedure Uninitialize();
end;
implementation
uses
Windows, SysUtils, Registry;
const
REG_KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
class procedure TIEBrowserFix.Initialize();
const
MAGIC_CONSTANT = 11001;
var
exeName: string;
begin
exeName := ExtractFileName(ParamStr(0));
with TRegistry.Create() do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(REG_KEY, true) then
begin
if not ValueExists(exeName) then
WriteInteger(exeName, MAGIC_CONSTANT);
CloseKey();
end;
finally
Free();
end;
end;
class procedure TIEBrowserFix.Uninitialize();
var
exeName: string;
begin
exeName := ExtractFileName(ParamStr(0));
with TRegistry.Create() do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(REG_KEY, false) then
begin
if ValueExists(exeName) then
DeleteValue(exeName);
CloseKey();
end;
finally
Free();
end;
end;
initialization
TIEBrowserFix.Initialize();
finalization
TIEBrowserFix.Uninitialize();
end.
Creo que eso ya podría solucionar el problema,
Agustín. Si no es así, tal vez podamos intentar alguna otra cosa.