使webbrowser里的link点击后在webbrowser里直接显示

使webbrowser里的link点击后在webbrowser里直接显示

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.codelphi.com/forum');
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(nil);
NewApp.Visible := true;
ppDisp := NewApp.webbrowser1.Application;
end;