WebBrowser 中链接问题 ？？(100分)

我在WebBrowser中放入了一张自已做的网页，在其中有一个超链接要求打开delphi中的某
一form，如何实现？？？
在线等待！

gz

我见过这样的程序，界面很有创意，听课,up

你普通的Form是用不来的，你要先做一个ActiveForm

用Hlink接口

能不能说得清楚一点

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('c:/testLink.htm');
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if(Pos('FORM2',UpperCase(URL))<>0) then
begin
Form2:=TForm2.Create(Self);
Form2.ShowModal;
Form2.Free;
cancel:=true;
end;

end;

end.

mozi268,skyE.T.两之间是什么关系？

他是我朋友，这个是他以前发表的，现在我知道怎么做了。所以回答一下

skyE.T.

skyE.T.真是太厉害了！！哈哈