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 进行打印的,怎么回事?