Einzelnen Beitrag anzeigen

citybreaker
(Gast)

n/a Beiträge
 
#1

Url in neumen Fenster öffnen

  Alt 1. Nov 2003, 14:06
Hallo,
ich hab von SwissdelphiCenter.ch einen Code
das Links in einem neuen Fenster geöffnet werden.

Delphi-Quellcode:
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;
Alerdings kennt meine TWebbrowser Komponente
Webbrowser1.DefaultDispatch nicht.
  Mit Zitat antworten Zitat