Mega Code Archive
Open url in new window with custom TWebBrowser
<![CDATA[
Title: open url in new window with custom TWebBrowser?
{
Normalerweise ffnet sich automatisch der Internet Explorer
wenn im TWebBrowser eine URL in einem neuen Fenster ge ffnet wird.
Mit diesem Tip wird eine neue Instanz des eigenen Browsers
erstellt und die URL dort ge ffnet.
}
{
Usually when you open a URL in new window in TWebBrowser it opens
the Internet Explorer. This tip creates a new instance of your
browser form and opens the new site in your browser.
}
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;
]]>