关于WebBrowser的导航问题

Question

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
   //写入的代码
end;
    怎么样才能让‘写入的代码’的代码调用一个外部的窗体呢？
       也就是用 WebBrowser控件中显示的网页来调用窗体

Answer 1

就是Form2.Show，什么Form都可以SHow的这个还用问

Answer 2

调用一个外部的程序
就SHellAPI的ShellExecute

Answer 3

if(Pos('FORM2',UpperCase(URL))<>0) then
  begin
    Form2:=TForm2.Create(Self);
    Form2.ShowModal;
    Form2.Free;
    cancel:=true;
  end;
是不是这个，假设在你的网页中有个FORM2的链接

Answer 4

那样就是zeng38097(曾阿牛) 所言