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