![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
kak ubrat scroll bari v twebbrowsere. [D6, WinXP]
svmagnum © (2002-05-29 04:33:00)ia xo4u sdelat tak chtob v tWebbrowser ne bilo scrollbarov dazhe esli razmer stranici bolshe vse ravno chto dazhe i ne poiavlialis.
int64 (2002-06-22 11:35:00) [1]Есть, если другой компонент юзать:
http://www.euromind.com/iedelphi/embeddedwb.htm
У него добавлен интерфейс IDocHostUIHandler, который делает то, что тебе надо. А так же много ещё чего: убирает бордюры, делае скроллбар плоским и.т.д. Всё выставляется в объект-инспекторе.
См. сюда:
http://www.euromind.com/iedelphi/embeddedwb/ongethostinfo.htm
svmagnum (2002-06-22 06:33:00) [2]a est metod tak chtob ne zhdad polnoj zagruzki sita a srazu i navsegda ili do chtob voobshem oni nikogda ne poiavlialis
Kirill (2002-06-06 11:53:00) [3]http://www.swissdelphicenter.ch/en/showcode.php?id=1185
int64 (2002-06-06 11:18:00) [4]Добавь в uses ...MSHTML,...
Интерфейсы описаны в этом модуле.
Можно без интерфейсов:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
TWebBrowser(Sender).OleObject.Document.body.scroll:="no";
end;
Только при таком подходе ошибки синтаксиса выявляются в realtime.
svmagnum (2002-06-06 06:06:00) [5]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-05-29 10:43:00) [6]
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
DispHTMLBody(DispHTMLDocument(TWebBrowser(Sender).Document).body).scroll:="no";
end;
Song (2002-05-29 08:15:00) [7]SetWindowLong() попробуйте