TWebBrowser F5 unterdrücken...

[FriFra]

Wie verhindere ich, dass bei drücken von F5 die Seite aktualisiert wird?

Ich schreibe meinen html-Code direkt in den TWebBrowser und wenn dann jemand F5 drückt, wird about.blank() neu geladen und mein HTML-Code ist dann natürlich weg :roll:

[n0b0dy]

also ehrlichgesagt hätte ich es bei mir gerne, dass er auf F5 aktualisiert.... :?
bei mir gehts aber nicht :D

irgendwas machst du, was ich haben will und umgekehrt *gg*

[marabu]

Hi,

das Abfangen der F5-Taste ist recht einfach, besonders wenn man statt TWebBrowser den EmbeddedWebBrowser verwendet:

Delphi-Quellcode:

function  TForm1.EmbeddedWB1TranslateAccelerator(const lpMsg: PMsg;
  const pguidCmdGroup: PGUID; const nCmdID: Cardinal): HRESULT;
begin
  // ungetestet
  if lpmsg.wParam = VK_F5 
    then result := S_OK 
    else result := S_FALSE;
end;

Aber ob das wirklich ausreicht?

Grüße vom marabu

[FriFra]

Zitat:

Zitat von marabu

Hi,

das Abfangen der F5-Taste ist recht einfach, besonders wenn man statt TWebBrowser den EmbeddedWebBrowser verwendet

Ist der "EmbeddedWebBrowser" eine Standardkomponente? Kann man auch in einen EmbeddedWebbrowser einfach so HTML-Code schreiben ohne wirklich eine Seite zu laden?
Mal ganz davon abgesehen hab ich nicht nach anderen Komponenten gefragt, sondern suche eine Lösung für TWebBrowser :roll:

[marabu]

Zitat:

Zitat von FriFra

Ist der "EmbeddedWebBrowser" eine Standardkomponente?

Der EmbeddedWebBrowser ist eine etwas vollständigere Kapselung des WebBrowser controls.

Zitat:

Zitat von FriFra

Kann man auch in einen EmbeddedWebbrowser einfach so HTML-Code schreiben ohne wirklich eine Seite zu laden?

Du kannst den EWB so benutzen, als wäre es TWebBrowser.

Zitat:

Zitat von FriFra

Mal ganz davon abgesehen hab ich nicht nach anderen Komponenten gefragt, sondern suche eine Lösung für TWebBrowser

Deine Fragestellung hatte bei mir den Eindruck erweckt, als wäre der EWB für dich die richtige Lösung. Entschuldige, wenn ich deine Fähigkeiten unterschätzt haben sollte. Natürlich kannst du auch selbst ein event sink instanziieren und an die richtigen IHTMLxxx Objekte klinken.

Freundliche Grüße vom marabu

[FriFra]

Hm...

Zitat:

October 16, 2001 (ver. 1.16b):

Now compatible with Delphi 6.

Kann es sein, dass da nicht weitergemacht wird? Gibt es keine Delphi2005 Version?

[Robert_G]

Zitat:

Zitat von FriFra

Kann es sein, dass da nicht weitergemacht wird? Gibt es keine Delphi2005 Version?

Also bei mir enthält der Download Source files -> Es ist also _auch_ eine D2005 Version.
2001? Kann es sein, dass der EmbeddedWB dann aktueller als der TWebBrowser ist? :lol:
Was will ich damit sagen? Ich habe in weniger Zeit, als du zum Schreiben des Beitrages brauchtest, alle Infos zusammenbekommen, die du erfragt hast. D'Oh! :wall:
An marabus Stelle wäre mir schon lange die Lust vergangen... :?

[FriFra]

Ich hab mir jetzt mal ein Package gebastelt um die Komponnte installiert zu bekommen...

embeddedwb_D9.dpk:

Delphi-Quellcode:

package embeddedwb_D9;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'EmbeddedWb'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}

requires
  vcl,
  rtl;

contains
  embeddedwb in 'embeddedwb.pas';

END.

nachdem ich noch ein paar "variants" in die pas Dateien eingefügt habe ließ sich das ganze sogar compilieren ;)
ABER, wenn ich installieren will bekomme ich den folgenden Fehler:
http://www.frifra.de/Temp/embeddedwb.jpg

Was mache ich falsch? :roll:

[Robert_G]

Das du bereits eine Klasse namens TWebBrowser registriert hast? :gruebel:

[FriFra]

Zitat:

Zitat von Robert_G

Das du bereits eine Klasse namens TWebBrowser registriert hast? :gruebel:

Hey, klar... da wär ich garnicht drauf gekommen ;)... TWebBrowser ist doch "Serienmäßig" schon vorhanden... nur wie werden ich den "alten" TWebBrowser los?
Ist der neue dann auch 100% kompatibel???
Ich würde den embeddedwb lieber als TWebBrowser2 (oder so ähnlich) haben, um Kompatibilitätsprobleme mit vorhandenen Projekten zu vermeiden, aber in den Projektdateien finde ich nichts was ich entspr. umschreiben könnte :gruebel:

[FriFra]

So, jetzt ist das Package installiert ;) ...
ABER eine visuelle Komponente mit dem Namen "EmbeddedWB" habe ich nicht gefunden... Wo muss ich diese Komponente suchen? Der Webbrowser scheint etliche neue Events zu haben, aber nichts was mir hier weiterhilft :roll:

[Edit:] Ich hab jetzt einfach in der pas und in der dfm alle TWebBrowser gegen TEmbeddedWB ersetzt und jetzt funktioniert es!

DANKE für eure Gedult! :oops: :dancer: :coder: