var size:OleVariant; begin size:=4;// 0,1,2,3,4 分别是最小->最大 for i:=0 to HomePage.ActivePage.ControlCount-1 do if HomePage.ActivePage.Controls[i] is TWebBrowser then begin try (HomePage.ActivePage.Controls[i] as TWebBrowser).ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DODEFAULT,size,size);//设置字体大小 except end; end; end
字体大小 类似“字体”菜单上的从“最大”到“最小”五项(对应整数0~4,Largest等假设为五个菜单项的名字,Tag 属性分别设为0~4)。 A、读取当前页面字体大小。 var t: OleVariant; Begin WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, EmptyParam,t); case t of 4: Largest.Checked :=true; 3: Larger.Checked :=true; 2: Middle.Checked :=true; 1: Small.Checked :=true; 0: Smallest.Checked :=true; end; end; B、设置页面字体大小。 Largest.Checked :=false; Larger.Checked :=false; Middle.Checked :=false; Small.Checked :=false; Smallest.Checked :=false; TMenuItem(Sender).Checked :=true; t :=TMenuItem(Sender).Tag; WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, t,t);
size:OleVariant;
begin
size:=4;// 0,1,2,3,4 分别是最小->最大
for i:=0 to HomePage.ActivePage.ControlCount-1 do
if HomePage.ActivePage.Controls[i] is TWebBrowser then
begin
try
(HomePage.ActivePage.Controls[i] as TWebBrowser).ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DODEFAULT,size,size);//设置字体大小
except
end;
end;
end
A、读取当前页面字体大小。
var
t: OleVariant;
Begin
WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
EmptyParam,t);
case t of
4: Largest.Checked :=true;
3: Larger.Checked :=true;
2: Middle.Checked :=true;
1: Small.Checked :=true;
0: Smallest.Checked :=true;
end;
end;
B、设置页面字体大小。
Largest.Checked :=false;
Larger.Checked :=false;
Middle.Checked :=false;
Small.Checked :=false;
Smallest.Checked :=false;
TMenuItem(Sender).Checked :=true;
t :=TMenuItem(Sender).Tag;
WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
t,t);