Link im aktiven Browser ausführen.

[TriphunEM]

also ich bin jetzt soweit:

Delphi-Quellcode:

procedure OpenSite(url, flags, targetframename, postdata, headers: olevariant);
var
  ie : IWebBrowser2;
begin
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
  ie.Visible := true;
  ie.Navigate2(url, flags, targetframename, postdata, headers);
end;
...
OpenSite(url,'navHyperlink','','','');

allerdings öffnet der Link sich immer noch in einen neuen fenster!

Wie schaffe ich das nun, dass er in dem aktuellen fenster geöffnet wird!?????

thx

[toms]

navHyperlink ist kein string. Eine Konstante:

OpenSite(url,navHyperlink,'','','');

[Ydobon]

Nicht sehr verwunderlich, dass du einen neuen Browser bekommst, du öffnest ja auch einen.
Da ist wieder die Frage, was du von der Demo übernommen bzw. geändert hast, die Deklaration deines Formulars wäre interessant.

[TriphunEM]

ich hab an der demo nix geändert! hab nur das form angepasst!
wäre schön, wenn du mal deine idee, wie es funktionieren könnte in Quellcode zeigen würdest.
Denn das ist dann bestimmt verständlicher für mich.

thx

[Ydobon]

Also nichts geändert, dann müsste im Formular das vorkommen

Delphi-Quellcode:

  public
    /// <summary>
    ///   Speichert den Link in das lokale Fenster des Internet Explorers, wenn
    ///   das DeskBand als Teil des IE geladen wird
    /// </summary>
    property IE: IWebBrowser2 read FIE write SetIE;

Und eben diese Eigenschaft IE ist das Interface des Browsers in dem die Toolbar läuft. Dementsprechend muss dann nur noch irgendwo stehen

Delphi-Quellcode:

var flags: OLEVariant;
begin
  flags:=navOpenInNewTab;
  IE.Navigate('http://www.delphipraxis.net/index.html', flags, emptyParam, emptyParam, emptyParam);

um die Seite in einem neuen Tab zu öffnen.

[TriphunEM]

jo danke. hat super geklappt. ich war wohl blind.