TWebBrowser - Sprung zu einer Textmarke funktioniert nicht

[golisan]

Hallo Leute,

ihr seit meine "letzte" Rettung ...

Ich erstelle per Programm eine HTML-Seite und möchte diese NICHT speichern, sondern direkt an eine WebBrowser-Komponente übergeben. Das geht auch soweit.

Delphi-Quellcode:

    if SrcView.WebBrowser1.Document = nil then SrcView.WebBrowser1.Navigate('about:blank');
    HTMLDocument := SrcView.WebBrowser1.Document;
    HTMLDocument.Clear;
    HTMLDocument.Write(aHTMLDocument.Text);
    HTMLDocument.Close;

Das Problem: klicke ich auf einen Link, der auf eine Textmarke innerhalb des Dokumentes "zeigt", öffnet die WebBrowser-Komponente eine neue(leere) Seite, auf der nur "blank#textmarke" steht.
Lade ich die Seite per navigate tut's ...
Habt ihr einen Tipp?

Danke!

[golisan]

... inzwischen habe ich es selber heraus gefunden....

bei einem Klick auf einen Link, der auf eine Textmarke innerhalb des HTML-Dokumentes verweist, setzt sich die "Sprungmarke" aus URL + Textmarke zusammen.
Da ich die Seite ja nicht per navigate sondern per write befüllt habe, steht in WebBrowser.LocationURL "about:blank" drin.
Beim Klick auf einen Link wird dann "about:blank#textmarke" daraus und damit kann TWebBrowser nix anfangen ...
So kann man den "Sprung" selber durchführen

Delphi-Quellcode:

procedure TFormSrcView.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
anchor      : OleVariant;
myURL       : widestring;
i           : Integer;
begin
  myURL := StringReplace(URL, 'about:blank','',[rfIgnoreCase]);  // Url bereinigen
  myURL := StringReplace(myURL, '#','',[rfIgnoreCase]);

  for I := 0 to WebBrowser1.OleObject.Document.anchors.Length - 1 do
  begin
    anchor := WebBrowser1.OleObject.Document.anchors.Item(I);
    if anchor.name = myUrl then
    begin
      anchor.scrollIntoView(true); // WebBrowser scrollen ...  
      cancel := true;
      exit;
    end;

  end;

  cancel := true;


end;

bye

[MacGuyver]

Moin Leute

Ja ich weiß, dass das ein alter Eintrag ist. Bei mir hatte das nicht funktioniert, und so ergänze ich nur eben um meinen Hinweis.

Ich hatte den Text gesetzt und wollte mittels ScrollIntoView nach unten zu einem Anker springen. Das klappte nicht. Unter dem Strich habe ich herausgefunden, dass man vorher noch Application.ProcessMessages ausführen muss. Dann klappt das.