在WebBrowser中打开应用程序中的一个窗体

Question

今天看到一个软件Crm软件，菜单界面用html来实现，估计可能是用了TWebBrowser.我想问一下，在WebBrowser中打开一个网页后，又如何点击这个连接弹出应用程序的一个from或者打开一个应用程序？
谢谢！

Answer 1

你创建ActiveX Form工程 你就都明白了：）
kele8台球就是很好的例子

Answer 2

差不多这样就可以了。一个判断
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
    if url='form2' then
       begin
            form2:=Tform2.create(self);
            form2.show;
       end;
end;

Answer 3

WebBrowser1BeforeNavigate2中的url是指打开网页的url,我的意思是指点打开网页中的连接弹出激活一个新的form

Answer 4

我刚才试过了能实现：
    linzhisong(無聊)  兄的代码没有问题
    其中 url='form2' 得处理好了
比如：webbrowser载入的页面是d:\1.htm
 1.htm的源码如下：
<a href="test">test1111</a>
那么url="d:\test"就ok了

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('d:\index.html');
end;procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
if URL='d:\test' then
begin
  form2:=TForm2.create(self);
  form2.show;
end;一模一样的代码同样不行，webbrowser1里面的页面就链接到下一步了。下面这个事件根本就没触发