如何在TWebBrowser中改变浏览内容的字体和大小(105分)

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #1

我需要在TWebBrowser中随时改变字体和大小，象IE中[查看]-[文字大小]和[工具]-[INTERNET选项]-[字体]中的相应设置一样。请各位高手出招！

 

E

Emperor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #2

@@..這很容易寫的呀...

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #3

To Emperor:
能否说详细点，或Email给我。（Emailto:Stephen@webpc.edu.cn)(注意
第一个S是大写，否则收不到）

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #4

呵呵，好像不太容易哦。
我在TWebBrowser和IHtmlDocument2都没有找到设置的地方。
Emperor说来听听。

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #5

var htmlDoc:IHtmldocument;
begin
htmldoc:=(webbrowser.document as IHtmlDocument)
htmldoc.font...
end;
方法大概是这样，随手写的

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #6

To nuke:
> htmldoc.font...
IHtmldocument 中并没有有关font的属性或方法。好象不可行。

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #7

原来的问题我自己解决了，不过绕了个大弯，将浏览内容保存，然后分析HTML文件
内容，将有关字体和字号进行更改，然后保存，再用TWebBrowser读保存后的文件。
#@%@!$^##^ ----是不是很累 >:-(

请问两位坛主，我想换个问题问，不知可否，否则我的分怎么给？

问题如下：

在TWebBrowser中有OnBeforeNavigate2事件，其中的URL参数在帮助中有如下
描述：
URL is the Uniform Resource Locator of the resource the Web browser
is looking up. Change this value to redirect the navigation operation
to a different resource.
好象是说改变其值可实现URL重新定位，但我改变其值却无相应效果，不知何故，
请赐教！

 

J

Jamesxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-20

• #8

加入如下代码:

.......
var t:OleVariant;
begin
t:=1;
Webbrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,t,t);
end;

有关t的取值,可以参考msdn

My Mail: xiaoquan@legend.com.cn

 

景

景冰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #9

请问JamesXiao, 微软的MSDN如何得到? 我从计算机报上看过它的介绍了,但不知
怎么方便地订阅,谢谢!

 

G

gongming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-01

• #10

...

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #11

to Jamesxiao:
帮忙找一下，我手头无MSDN，若可行，我再加95分（共200分）。谢谢！

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #12

SY0331,没有MSDN怎么行？呵呵
到街上去找Visual Studio的盘，里面就有MSDN.
不过版本比较老。要是要新的，还是要去订。
布置您老在那个地方？要是方便的话，倒是可以找我。

 

J

Jamesxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-11

• #13

to SY0331

街上的Visual Studio的盘中的MSDN版本虽然比较老,但是应该可以解决你的问题.

 

H

hhzh426

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #14

关注！

 

T

Tab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #15

to syo331:
这个问题我刚好以前作过，源码给你，哈哈，快给分吧。
procedure TMainFrm.mFont4Click(Sender: TObject); // 4 : 最大
var
pvaIn,pvaOut: OLeVariant;
begin
pvaIn := 4;
pvaOut := NULL;
WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,pvaIn,pvaOut);
end;
变量pavIn对应字体大小
4：最大
3：较大
2：标准
1：最小

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #16

To Tab:

谢了！你的方法可以解决一定的问题，但如果有表格或有<p...>等指令，就差那么一点点。不过我还是要给你最高的分。

To Jamesxiao:
多谢提示，你的分也不会低。

 

S

SY0331

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #17

多人接受答案了。

 

G

guest2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-01

• #18

注意，这种办法对付现在流行的CSS处理后的页面是没用的，所以还是辛苦点通过
CSS之类的接口控制字体吧，如http://bbs.cpcw.com/forum/vb/index.html中的大
小字体切换就是这样控制的