URL des Links über dem die Maus ist heraufinden/TWebbrowser

[alias5000]

Hi Leute!
Ich schreibe grade nen Webbrowser zusammen, und bin auf ein Problem gestoßen:

Mir enthält das Popupmenü vom IE Sachen, die ich net will (z.B. will ich "in neuem Fenster öffnen" in "in neuem Tab öffnen" ändern, oder Quelltext anzeigen, usw.). Ich kann ja ein eigenes Popup einführen(benutze TEmbeddedWB), das Problem ist nur, dass ich dazu herausfinden müsste, über welcher Grafik, über welchem Link die rechte Maistaste gedrückt wurde, damit ich dann entsprechend die URL kriege, um Funktionen wie "In neuem Tab öffnen" realisieren zu können.

Gruß alias5000

[marabu]

Hallo,

vor kurzem gab es hier einen thread zum Kontextmenü im WebBrowser: klick. Vielleicht hilft dir das weiter?

Grüße vom marabu

PS: Herzlich willkommen in der Delphi-PRAXiS.
PPS: Maistaste - das nenne ich Umweltbewusstsein...

[alias5000]

Danke erstmal. Ich werde das mal ausprobieren, was er da hat, aber eigentlich wollte ich was anderes. Mir ging es dabei eher darum, herauszufinden, über welchem Link, Grafik etc. die Maus sich befindet, wenn ein rechtsklick kommt. Ich hab schon hier (oder wars doch im Delphi-Forum?) ne ansatzhafte Lösung gefunden: man könnte den Statustext auslesen, da dort immer der Link angegeben wird, wenn einer existiert. Allerdings Lässt sich damit nicht herausfinden, welche Grafik heruntergeladen werden müsste, wenn man eine Grafik speichern wollte und so.
Ich will halt das IE-Popupmenü im großen und ganzen nachbilden, aber an manchen stellen anpassen, damit es besser in mein Programm passt. Leider geht es dabei nicht darum, nur Menuitems hinzuzufügen.

PS.: Bin seit über nem Jahr beim DF und hatte hier immer wieder reingeschaut und dachte mir dann: Mensch, du könnstest doch hier auch mal mitmachen

Also bis dann!

[marabu]

Dann brauchst du vielleicht das hier?

Delphi-Quellcode:

function TWebForm.BrowserShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
var
  e: IHTMLElement;
  d2: IHTMLDocument2;
begin
  d2 := Browser.Document as IHTMLDocument2;
  e := d2.elementFromPoint(ppt.x, ppt.y) as IHTMLElement;
  if Assigned(e) then
    ShowMessage(e.outerHTML);
  Result := S_OK;  // suppress default context menu
end;

Browser ist vom Typ TEmbeddedWebbrowser.

Freundliche Grüße vom marabu