关于WebBrowser的使用

[maer56]

我用WebBrowser在做浏览器，在其打开的一个网页页面里在新打开一个页面就用微软的浏览器打开了，并不是用自己做的那个打开。也就是说一个是用自己程序打开网页，而点击一个连接却用的不是自己的。
该如何用自己的打开网页呢？

[fei19790920]

分那么少，在WebBrowser1NewWindow2里处理，你给的分就值这个答案了

[TechnoFantasy]

假设你的浏览器窗口是TForm1的话：

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin
// a new instance of the form will be created
// Eine neue Instanz wird erstellt
NewWindow := TForm1.Create(self);

NewWindow.Show;
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;