Zitat von
marabu:
Hallo Frank,
ich würde das Ereignis OnDocumentComplete() von TWebBrowser verwenden - es wird für jeden Frame gefeuert und du brauchst einfach nur dein EventObj anhängen.
Delphi-Quellcode:
procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
doc: IHTMLDocument2;
begin
if Succeeded(pDisp.QueryInterface(IID_IHTMLDocument2, doc))
then
doc.onmousemove := TEventObject.Create(Document_OnMouseOver)
as IDispatch;
end;
Grüße vom marabu
Leider funktioniert das nicht.. Succeeded ist immer false! Warum auch immer...
Frank
