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

  • 主题发起人 主题发起人 AdamasStar
  • 开始时间 开始时间
A

AdamasStar

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI中的WebBrowser如何改变显示的字体的大小?
 
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
 
实在太感谢你了,多谢,多谢…
 
后退
顶部