Показать сообщение отдельно
  #4  
Старый 05.01.2020, 21:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну не знаю...
Delphi 7, Win 7 (IE 11) - работает:
Код:
uses MSHTML, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.delphisources.ru');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc : IHtmlDocument2;
begin
 Doc := WebBrowser1.Document as IHtmlDocument2;
 Memo1.Lines.Text := Doc.body.innerHTML;
end;
Ответить с цитированием