WebBrowser的IHTMLWindow2 如何调用ShowModalDialog打开模式对话框

Question

不知道如何给方法传递参数

Answer 1

注意: 使用前要WebBrowser已经打开了网页procedure TForm1.Button1Click(Sender: TObject);
var
  ModalWindow: IHTMLWindow2;
  URL, StrArg, StrAttr: OleVariant;
begin
  ModalWindow := IHTMLDocument2(WebBrowser.Document).ParentWindow as IHTMLWindow2;
  URL := 'http://www.google.com';
  StrArg := 'window';
  StrAttr := 'status:no;dialogWidth:450px;dialogHeight:360px;help:no';
  ModalWindow.showModalDialog(URL, StrArg, StrAttr);
end;