Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: TWebBrowser -> POPUP URL?

    Delphi
    by toms, 25. Feb 2005
  uses
  MSHTML;
  
  MSHTML importieren
• Forum: Netzwerke

  Re: TWebBrowser -> POPUP URL?

    Delphi
    by toms, 25. Feb 2005
  :arrow: Ersetze TEmbeddedWB mit TWebbrowser
  
  
  
  
  Warum so kompliziert?
  
  NewWindow := TForm4.Create(self);
  NewWindow.Show;
  ppDisp := NewWindow.web.DefaultDispatch;
• Forum: Netzwerke

  Re: TWebBrowser -> POPUP URL?

    Delphi
    by toms, 25. Feb 2005
  Probiert mal das:
  
  procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
  var
  URL: WideString;
  begin
  URL := ((TEmbeddedWB(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
  end;
• Forum: Netzwerke

  Re: TWebBrowser -> POPUP URL?

    Delphi
    by toms, 25. Feb 2005
  Du musst zuerst das neue ActiveX importieren...
• Forum: Netzwerke

  Re: TWebBrowser -> POPUP URL?

    Delphi
    by toms, 25. Feb 2005
  Hi,
  
  Im OnNewWindow2 kann man die URL IMO nicht herausfinden.
  Erst ab Win XP SP2. Dann gibt's OnNewWindow3.
  
  BeforeNavigate2 Liefert aber die URL, Flags usw.
  
  procedure TForm1.BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);