Einzelnen Beitrag anzeigen

hkleebaum

Registriert seit: 23. Nov 2005
6 Beiträge
 
Delphi 10 Seattle Professional
 
#3

Re: TWebBrowser und weitere Fenster

  Alt 20. Jun 2008, 09:17
Hallo,
im NewWindow2-Event kann mann das Öffnen eines neuen Fenster auf einen TWebBrowser seiner Wahl umlenken:

Delphi-Quellcode:
procedure TfrmWeb1.WebBrowser1NewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: TfrmWeb2;
begin
  // Eine neue Instanz wird erstellt
  NewWindow := TfrmWeb2.Create(Application);
  NewWindow.Caption := frmMain.Caption + ' ...';
  NewWindow.Webbrowser1.RegisterAsBrowser := True;
  NewWindow.Show;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;
  Mit Zitat antworten Zitat