Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi History im WebBrowser mit Tabs (https://www.delphipraxis.net/119821-history-im-webbrowser-mit-tabs.html)

djpaull 1. Sep 2008 15:18


History im WebBrowser mit Tabs
 
Hallo allerseits!
Habe ein WebBroser programmiert. Auf der PageControll mit Tabs liegt immer ein TWebBroser - ein Brosewr pro Tab.

Problem: Die neuen Fenster werden zwar in anderen Tabs/Browser geöffnet, aber die History bezieht sich immer auf den ersten Browser (sieht man auch an den Navi-Buttons).

Frage: wie kann ich für jeden Browser eigene History machen?

Ich dachte hier an StringList, nur weiss ich leider nicht, wie man sie zur Laufzeit erstellt (neuer Tab - neue Strinlist). Und wenn z.B. in der Stringlist 10 einträge sind, wie lösche ich z.B. die letzten 5 ?

toms 1. Sep 2008 18:04

Re: History im WebBrowser mit Tabs
 
Hallo,

Im OnCommandStateChange Ereignis kannst du auf die Commands CSC_NAVIGATEBACK und CSC_NAVIGATEFORWARD reagieren
und dann für jeden Browser den Status speichern. (Siehe Beitrag)

Oder soll der Benutzer die History visuell sehen können?

djpaull 2. Sep 2008 11:06

Re: History im WebBrowser mit Tabs
 
Ich komme einfach nicht weiter. Ich habe alles probiert, hab alle units eingebunden, alles angepasst - nichts :( . Aber egal. Kannst du mir bitte einfach sagen, wie ich das hier mache:
Zitat:

Ich dachte hier an StringList, nur weiss ich leider nicht, wie man sie zur Laufzeit erstellt (neuer Tab - neue Strinlist). Und wenn z.B. in der Stringlist 10 einträge sind, wie lösche ich z.B. die letzten 5
. Damit wäre ich schon zufrieden :roll: .

djpaull 3. Sep 2008 04:04

Re: History im WebBrowser mit Tabs
 
Hey Tom, ich bitte 1000 Mal um Verzeiung! Es funzt jetzt :idea: . Habe dein Code benuzt. Nur vorhin hatte ich vergessen "GetCurrentWB" anzuwenden. Deswegen war meine History auch nur für den 1. Browser gültig. :oops:
Siehe hier:
Delphi-Quellcode:
// Navigate Forward in History

procedure tform1.WB_GoForward(wbb: TWebbrowser);
begin
  try
    if WB_DocumentLoaded(getcurrentwb) then //Hier habe ich mich vertan
      wbb.GoForward;
  except
  end;
end;
Naja, wie heisst es noch mal ?...
Ach ja: "Warum gibt es Frauen mit einem blauem Fleck auf dem Bauchnabel? - Weil es auch blonde Männer gibt..." :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz