WebBrowser有没有属性或方法让显示的网页凸出来？（自己控制网页显示风格）(100分)

J

jack011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #1

自己用WebBrowser作了一个简单浏览器，发现显示的网页老是凹下去，我知道这主要是打开网页自身风格问题。
请问WebBrowser有没有属性或方法让显示的网页凸出来呢？（自己控制网页显示风格）
谢谢各位。

 

Y

yangairong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #2

这个要用JS角本。。你到盒子www.2ccc.com里面下载RSS看一下。里面有一个例子

 

U

ufo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #3

用如下方法运行脚本即可，注意 uses mshtml 单元
var pdoc: IHTMLDocument2;
begin
pdoc:=WebBrowser1.Document as IHTMLDocument2;
IHtmlWindow2(pdoc.parentWindow).execScript('java脚本','JavaScript');
end;

 

J

jack011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #4

to ufo兄弟，是如何用的呢？
这样好象报错。劳驾祥解一下，谢谢了！[]
procedure TMainForm.FormCreate(Sender: TObject);
var
pdoc: IHTMLDocument2;
begin

try
WebBrowser.Navigate('http://www.sohu.com/');
pdoc := WebBrowser.Document as IHTMLDocument2;
IHtmlWindow2(pdoc.parentWindow).execScript('java脚本', 'JavaScript');
except
end;
end;

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-22

• #5

那个执行的话,要在页面里有此脚本才能执行吧,注意区分大小写.

 

U

ufo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-22

• #6

把 WebBrowser.Navigate('http://www.sohu.com/');
这句写到别的地方去。
你写在一起，要加等待页面加载完成的判断。
否则pdoc := WebBrowser.Document as IHTMLDocument2;
可能会因为页面还没初始化而返回错误。
另外，页面内无须有脚本的，这方法可独立运行。

 

J

jack011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-18

• #7

问题解决,谢谢各位兄弟