Убираем рамку и полосу прокрутки у TWebbrowser
Запись от Alex_pac размещена 13.05.2012 в 11:18
Показов 16732
Комментарии 1
Метки delphi
|
Я знаю что есть способ убрать их через OLE интерфейс IE. И я его уже пробовал использовать и причем успешно. Однако мне он все равно не нравится своей громоздкостью. Поэтому показываю наипростейшие способы сделать это. 1) Убрать рамку можно, просто растянув браузер на панели так что он будет заходить за рамки панели, что и скроет его рамку. Данная процедура выполяет это:
2) Прямого воздействия на прокрутку сделать не получится. Однако в большинстве случев оно и не нужно. Достаточно внутри HTML страницы прописать
| |||||||||||||||
Метки delphi
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 1
Комментарии
-
на проверку ....
Delphi 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;const pDisp: IDispatch; const URL: OleVariant); var Doc : IHTMLDocument2; Element : IHTMLElement; begin // Убрать scrollbar WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden'; WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden'; // Убрать рамку Doc := IHTMLDocument2(WebBrowser1.Document); Doc := IHTMLDocument2(TWebBrowser(i).Document); if Doc = nil then Exit; Element := Doc.body; if Element = nil then Exit; Element.style.borderStyle := 'none'; end;
Запись от Alex_pac размещена 17.12.2012 в 13:26 
