对TWebBrowser编程时如何实现查看时选择文字大小,以及打印功能.(200分)

  • 主题发起人 主题发起人 kail
  • 开始时间 开始时间
K

kail

Unregistered / Unconfirmed
GUEST, unregistred user!
类似MS-Internet Explorer 的功能!
 

var
 t: OleVariant;

//设置页面字体大小。
t := 2 ; //从“最大”到“最小”五项对应整数0~4
WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, t,t);

//打印
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);

 
请问kthy,为什么在调用WebBrowser1.ExecWB函数时会出现EoleException'试图激活未注册的丢弃目标'的错误!!!

 
别理它,用如下方法屏蔽OLE错误!

try
WebBrowser1.ExecWB;
except
end;


 
to kthy
在调用打印程序时,若是确定,则正常,若取消则触发OLE错误,Except不能截获,请问这如何解决!
 
在end.之前加入

initialization
OleInitialize(nil);

finalization
OleUninitialize;
 
好像没用!!!!
 
kthy,字体怎么不变化?
kail的方法可以,我试了。
 
接受答案了.
 
后退
顶部