在DELPHI中的WebBrowser如何改变显示的字体的大小？(100分)

A

AdamasStar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-28

• #1

在DELPHI中的WebBrowser如何改变显示的字体的大小？

 

Y

yousoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #2

var
size:OleVariant;
begin
size:=4;// 0,1,2,3,4 分别是最小->最大
for i:=0 to HomePage.ActivePage.ControlCount-1 do
if HomePage.ActivePage.Controls is TWebBrowser then
begin
try
(HomePage.ActivePage.Controls as TWebBrowser).ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DODEFAULT,size,size);//设置字体大小
except
end;
end;
end

 

A

AdamasStar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #3

实在太感谢你了，多谢，多谢…