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

[big_net]

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

[sinocat]

没有写过，你把这个东西发布出来大家看看。

[kennidy]

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

[big_net]

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

[rustle]

ActiveX Form

[linzhisong]

差不多这样就可以了。一个判断
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;

[linzhisong]

就是这个样啊

[drh84820]

实现不了噢。。。。

[wellwelcome]

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

[drh84820]

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里面的页面就链接到下一步了。下面这个事件根本就没触发