Topic: TWebBrowser
использую этот код:
var
Web: TWebBrowser;
procedure Form1_OnShow (Sender: string; Action: string);
var
reg : TRegistry;
begin
// https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
reg:= TRegistry.Create;
try
reg.Access := KEY_ALL_ACCESS;
reg.RootKey:= HKEY_CURRENT_USER;
if reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True) then
begin
if not reg.ValueExists(ExtractFileName(Application.ExeName)) then
reg.WriteInteger(ExtractFileName(Application.ExeName), 11000); // 10001 - IE10, 11000 - IE11 https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
end;
reg.CloseKey;
finally
reg.Free;
end;
Web := TWebBrowser.Create(Form1);
TWinControl(Web).Parent := Form1.Panel1;
Web.Align := alClient;
Web.Width := Form1.Width;
Web.Height := Form1.Height-50;
Web.Silent := 1;
end;
но бывает при клике в браузере MVD вылазит новое окно...как поправить код, чтобы окно открывалось в самом браузере MVD...???
С Большим Уважением ....