...с оформлением компонента TWebBrowser

← →
.ruslan © (2006-07-27 11:08) [0]

Добрый день!
У меня к вам вопрос, но связан он больше с оформлением компонента TWebBrowser, он без загруженной страницы выглядит довольно аккуратно, как TMemo с BorderStyle=bsNote, но после загрузки как будто bsSingle, и как избавится от скролбара и такой рамки?

http://favert.ru/archive/scr.gif

← →
.ruslan © (2006-07-27 12:25) [1]

не реально что-ли?

← →
easy © (2006-07-27 14:17) [2]

http://dfc.com.ru/?sid=2&id=9&itemid=71

← →
easy © (2006-07-27 14:22) [3]

кхм..
Компонент.
позволяет убрать скролбары, рамку, меню. или сделать скролбары плоскими.

есть такая вот кодина, нашёл, но ошибки и т.д.

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;

> но ошибки и т.д.

беда..

...с оформлением компонента TWebBrowser Найти похожие ветки