TWebBrowser без полос прокрутки

← →
Dmitry_177 (2007-06-25 08:57) [0]

как сделать TWebBrowser без полос прокрутки?

← →
palva © (2007-06-25 11:04) [1]

Компонента WebBrowser и так не имеет полос прокрутки. Полосы прокрутки обусловлены тем содержимым, которое он показывает. Если страничка показывает полосы прокрутки, то на уровне компоненты ничего поделать нельзя - надо менять код странички. Если вы сами формируете страничку, то попробуйте такой код:
WebBrowser1.Navigate("about:<HTML><BODY style="overflow:hidden">qwerty</BODY></HTML>");

← →
Dmitry_177 (2007-06-26 18:24) [2]

Спасибо, помогло :) А как еще можно убрать саму рамку вокруг WebBrowser?

← →
Dmitry_177 (2007-06-28 15:48) [3]

palva, помоги пожалуйста..

← →
DiamondShark © (2007-06-28 17:29) [4]

Точно так же, стилями контента.
Например, в приведённом примере дописать

...><BODY style="overflow:hidden;border:none">qwerty</BODY><...

← →
Pohil © (2007-06-29 08:27) [5]

ИМХО
Самый простой способ убрать рамку: кидаем на форму к примеру Panel который будет являться парентом для WebBrowser. Ну и сдвигаем WebBrowser.

Web.Top := -2; Web.Left := -2; Web.Width := Parent.Width + 4; Web.Height := Parent.Height + 4;

Вуаля рамка пропала. Конечно есть и программный способ, но видимой разницы нет.

← →
TIF © (2007-06-29 19:23) [6]

Люди, вы меня поразили.....

Это точно Основная конференция? Даже такой ламер как я :-) это знаю, так что сейчас всё расскажу, подождите минутку...

Эти способы ужасны!

← →
DiamondShark © (2007-06-29 19:26) [7]

Меньше эмоций. Больше конкретики.

← →
TIF © (2007-06-29 19:31) [8]

УБРАТЬ ПОЛОСЫ ПРОКРУТКИ

{A page must be loaded into TWebBrowser}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Body.Style.OverflowX := "hidden";
WebBrowser1.OleObject.Document.Body.Style.OverflowY := "hidden";
end;

С рамкой посложнее, её я раньше убирал регионами, но сейчас мне подсказали ХОРОШИЕ КОМПОНЕНТЫ, среди них:

EmbeddedWB1 - возможность убирать полосы прокрутки в свойствах компонента, отключать и включать картинки - это только самая малость всех возможностей!

Всё из пакета Embedded Web Browser, с сайта... щас вспомню..

http://bsalsa.com/Downloads/EmbeddedWB_D2005_Version_14.64.zip

http://www.bsalsa.com/downloads.html

http://www.bsalsa.com/Downloads/EmbeddedWBDemo_SC.zip

http://www.bsalsa.com/ewb_down_opt.html

Вот! Могу, наверное, даже по почте выслать.

← →
TIF © (2007-06-29 19:32) [9]

> Меньше эмоций. Больше конкретики.

Вот они конкремоции :-)

← →
DiamondShark © (2007-06-29 19:55) [10]

А... э...
А чем этот способ отличается-то? Точно так же, через стили.

> С рамкой посложнее

а WebBrowser1.OleObject.Document.Body.Style.border := "none"; не помогает?

← →
TIF © (2007-06-29 20:09) [11]

> а WebBrowser1.OleObject.Document.Body.Style.border := "none";
> не помогает?

у меня это почти всегда глючило, особенно на некоторых "сложных" документах. Не знаю, может винда виновата, но на других компах это иногда было, а иногда нет

> А... э...
> А чем этот способ отличается-то? Точно так же, через стили.
>

В принципе ничем

НО!

Не надо менять, дополнять, усложнять код страницы, причём если на странице этого не написано, мой способ всё равно пойдёт - применим ко всем страницам

И писать меньше надо

← →
homm © (2007-06-29 23:10) [12]

> > С рамкой посложнее
>
> а WebBrowser1.OleObject.Document.Body.Style.border := "none";
> не помогает?

А разве рамку страница рисует, а не компонент? Как на это может поменять стиль документа?

> поменять

повлиять

А самому попробовать?
Сам контрол рамки не имеет. Рамку обычно имеет внутренность контрола, за которую отвечает содержимое страницы. Если страница не загружена, то рамки нет. Если мы напишем страницу так, чтобы не отображалась рамка и полосы прокрутки (т.е.)
WebBrowser1.Navigate("about:<HTML><BODY style="overflow:hidden;border:none">qwerty</HTML></BODY>");
то рамки тоже не будет.

> А самому попробовать?

Лень-матушка :)

← →
Dmitry_177 (2007-07-01 00:12) [16]

спасибо! :)

> palva © (30.06.07 12:09) [14]

Вы сами то пробовали? Лично у меня такой код не работает. Конечно может это как нибудь связано с версией explorer, но вряд ли.

Делайте наследника от TWebBrowser и у него имплементите IDocHostUIHandler,
далее на GetHostInfo

DOCHOSTUIFLAG_NO3DBORDER = $0004; // константа у Микрософта из хелпа function TXXX.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; begin pInfo.cbSize := SizeOf(pInfo); pInfo.dwFlags := DOCHOSTUIFLAG_NO3DBORDER; pInfo.dwDoubleClick := DOCHOSTUIDBLCLK_DEFAULT; Result := S_OK; end;

TWebBrowser без полос прокрутки Найти похожие ветки