Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > TWebBrowser: отключить правый ScrollBar

Автор: jctim 16.8.2006, 15:55

Необходимо отключить правый скроллбар в компоненте TWebBrowser.
По умолчанию он всегда отображается (в ИЕ - тоже).

В настройках ИЕ не нашел.
В пропертях компонента - тоже.
smile

Возможно ли его отключить?

Или подскажите другой компонент...

Сенкс.

Автор: _hunter 16.8.2006, 16:06

делай как тут:
http://www.codeproject.com/internet/detecting_the_ie_refresh.asp
но наоборот

Автор: jctim 16.8.2006, 16:32

Код


EnableScrollBar(WebBrowser1.HWND, SB_BOTH, ESB_DISABLE_BOTH)

либо

Код


EnableScrollBar(WebBrowser1.Handle, SB_BOTH, ESB_DISABLE_BOTH)

не работает для TWebBrowser !!!

smile

Автор: _hunter 16.8.2006, 16:48

а кто говорил про WebBrowser1.Handle?

Автор: jctim 16.8.2006, 17:07

Цитата(_hunter @ 16.8.2006, 16:48

)

а кто говорил про WebBrowser1.Handle?

В смысле?

Вообще туда надо передавать именно Handle потому что у него тип HWND, а у HWND - тип Integer...
Все равно Скроллбары не отключаются.!.

Автор: _hunter 16.8.2006, 17:21

Цитата(jctim @ 16.8.2006, 17:07

)

В смысле?

в прямом.
не факт что хендл ActiveX' а и хендл окна браузера -- одно и то же...

Автор: December 17.8.2006, 12:46

jctim,
попробуй это сделать css'ом (overflow у document), а потом найди аналог в IHTMLDocument или других интерфейсах

Автор: jctim 18.8.2006, 12:16

Я нашел как это сделать:

Пишешь в хтмл-документе в теге <body>

Код


<body scroll="auto">

Автор: Rennigth 21.8.2006, 14:38

jctim,

Код


var
  lDoc: IHTMLDocument2;
  lBody: IHTMLElement;
  lStyle: IHTMLStyle2;
begin
  lDoc := IHTMLDocument2(TWebBrowser(WebBrowser).Document);
  if Assigned(lDoc) then
  begin
    lBody := lDoc.Body;
    if Assigned(lBody) then
    begin
      lBody.style.QueryInterface(IID_IHTMLStyle2, lStyle);
      if Assigned(lStyle) then
      begin
        lStyle.overflowX := 'hidden';
        lStyle.overflowY := 'hidden';
      end;
    end;
  end;
end;