[Помогите!] WebBrowser. Убрать скролл справа.

[NebesaBag]

Сабж.
Как убрать сероватый скролл, который никогда не будет задействован, тк в компонент подгружаются всегда htm файлы одного размера.

[zombiee]

WebBrowser1.Document.Body.Style.OverflowX := 'hidden';
WebBrowser1.Document.Body.Style.OverflowY := 'hidden';

[NebesaBag]

Цитата: Сообщение от zombiee WebBrowser1.Document.Body.Style.OverflowX := 'hidden'; WebBrowser1.Document.Body.Style.OverflowY := 'hidden';

Undeclared identifier: 'Body'
Что-то в uses добавить нужно?

[zombiee]

Цитата: Сообщение от NebesaBag Undeclared identifier: 'Body'

Страничка загружена в компонент?
Значения переменных, которые я привел выше, необходимо устанавливать каждый раз, как в компонент загружается новая страница.

[NebesaBag]

Цитата: Сообщение от zombiee Страничка загружена в компонент? Значения переменных, которые я привел выше, необходимо устанавливать каждый раз, как в компонент загружается новая страница.

Ваш код я ставил после вэббраузер.нивигэйт и писало что неизвестный боди.

[zombiee]

Цитата: Сообщение от NebesaBag Ваш код я ставил после вэббраузер.нивигэйт и писало что неизвестный боди.

Делфя какая?

Попробуй создать обработчик OnDocumentComplete:

procedure WebBrowser1.OnDocumentComplete(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  Doc.Body.Style.BorderStyle := 'none';
  Doc.Body.Scroll := 'no';
end;

В юзы добавь модуль mshtml, если ругнется на IHTMLDocument2

[NebesaBag]

7 версия.

Спасибо, в этом коде ругалось что неизвестен Scroll

procedure WebBrowser1.OnDocumentComplete(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  Doc.Body.Style.BorderStyle := 'none';
  Doc.Body.Scroll := 'no';
end;

Я сделал так по примеру одного англоязычного форума

var
  Doc: IHTMLDocument2;  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  body.Style.BorderStyle := 'none';
  body.Scroll := 'no';
end;