| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
...с оформлением компонента TWebBrowser [D7, WinXP]
.ruslan © (2006-07-27 11:08:00)Добрый день!
У меня к вам вопрос, но связан он больше с оформлением компонента TWebBrowser, он без загруженной страницы выглядит довольно аккуратно, как TMemo с BorderStyle=bsNote, но после загрузки как будто bsSingle, и как избавится от скролбара и такой рамки?
http://favert.ru/archive/scr.gif
easy (2006-07-27 18:21:00) [1]
> но ошибки и т.д.
беда..
.ruslan (2006-07-27 17:15:00) [2]есть такая вот кодина, нашёл, но ошибки и т.д.
procedure TForm1.WBDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Doc : IHTMLDocument2;
Element : IHTMLElement;
begin
Doc := IHTMLDocument2(TWebBrowser(Sender).Document);
if Doc = nil then
Exit;
Element := Doc.body;
if Element = nil then
Exit;
case Make_Flat of
TRUE : Element.style.borderStyle := 'none';
FALSE : Element.style.borderStyle := '';
end;
end;
easy (2006-07-27 14:22:00) [3]кхм..
Компонент.
позволяет убрать скролбары, рамку, меню. или сделать скролбары плоскими.
easy (2006-07-27 14:17:00) [4]http://dfc.com.ru/?sid=2&id=9&itemid=71
.ruslan (2006-07-27 12:25:00) [5]не реально что-ли?
| |
