kak ubrat scroll bari v twebbrowsere.

← →
svmagnum © (2002-05-29 04:33) [0]

ia xo4u sdelat tak chtob v tWebbrowser ne bilo scrollbarov dazhe esli razmer stranici bolshe vse ravno chto dazhe i ne poiavlialis.

← →
Song © (2002-05-29 08:15) [1]

SetWindowLong() попробуйте

← →
int64 © (2002-05-29 10:43) [2]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin DispHTMLBody(DispHTMLDocument(TWebBrowser(Sender).Document).body).scroll:="no"; end;

← →
svmagnum © (2002-06-06 06:06) [3]

Int64 chto eto za disphtmlbody???? Tam takogo net. Napishi pro chto ti. Ia ka setwindowLong delat. kakie tam parametri dlia change window style (u menia programma raises exception kogda ia eto ispolzuu.

← →
int64 © (2002-06-06 11:18) [4]

Добавь в uses ...MSHTML,...
Интерфейсы описаны в этом модуле.

Можно без интерфейсов:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin TWebBrowser(Sender).OleObject.Document.body.scroll:="no"; end;

Только при таком подходе ошибки синтаксиса выявляются в realtime.

← →
Kirill © (2002-06-06 11:53) [5]

http://www.swissdelphicenter.ch/en/showcode.php?id=1185

a est metod tak chtob ne zhdad polnoj zagruzki sita a srazu i navsegda ili do chtob voobshem oni nikogda ne poiavlialis

Есть, если другой компонент юзать:
http://www.euromind.com/iedelphi/embeddedwb.htm
У него добавлен интерфейс IDocHostUIHandler, который делает то, что тебе надо. А так же много ещё чего: убирает бордюры, делае скроллбар плоским и.т.д. Всё выставляется в объект-инспекторе.
См. сюда:
http://www.euromind.com/iedelphi/embeddedwb/ongethostinfo.htm

kak ubrat scroll bari v twebbrowsere. Найти похожие ветки