怎么样点击在web browse中超链接来实现象按钮般的功能，例如弹出一个窗口等？ ( 积分: 100 )

如题~

如题~

在WebBrowser的
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Cancel := True;
Form2.Show;
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:= True;
Form3.Show;
end;
写东西，一个是网页跳转，一个是网页弹出新窗口，把Cancel设置False，然后
替换成你的Form就可以了