procedure TReportForm.ViewSBtnClick(Sender: TObject);
var
pvaIn, pvaOut: OLeVariant;
begin
WebBrowser.Navigate('http://www.5460.net');
pvaIn := 3;
pvaOut := NULL;
ShowMessage(IntToStr(WebBrowser.QueryStatusWB(OLECMDF_SUPPORTED)));
WebBrowser.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, pvaIn,pvaOut);
end;程序中如果没有ShowMessage这句,则会出现错误:
“试图吊销一个未注册的拖放目标”!怎么回事啊?有人说在执行ExecWB前要执行一下QueryStatusWB,可我发现QueryStatusWB的参数
无论是用 OLECMDF_SUPPORTED 还是 OLECMDF_ENABLED 返回都是 0 !
但是我还是能用 OLECMDID_PRINT 进行打印的,怎么回事?
var
pvaIn, pvaOut: OLeVariant;
begin
WebBrowser.Navigate('http://www.5460.net');
pvaIn := 3;
pvaOut := NULL;
ShowMessage(IntToStr(WebBrowser.QueryStatusWB(OLECMDF_SUPPORTED)));
WebBrowser.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, pvaIn,pvaOut);
end;程序中如果没有ShowMessage这句,则会出现错误:
“试图吊销一个未注册的拖放目标”!怎么回事啊?有人说在执行ExecWB前要执行一下QueryStatusWB,可我发现QueryStatusWB的参数
无论是用 OLECMDF_SUPPORTED 还是 OLECMDF_ENABLED 返回都是 0 !
但是我还是能用 OLECMDID_PRINT 进行打印的,怎么回事?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货