hallo,
Probiere's mal so:
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
wb2: IWebBrowser2;
begin
if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2))
then
begin
htmlDoc := wb2.document
as iHTMLDocument2;
with htmlDoc
do
onMouseMove := TEventObject.Create(Document_OnMouseOver)
as IDispatch;
end;
end;
Nachtrag: Funktioniert so, aber falls mehrere Frames vorhanden sind, gibt's eine
AV bei
element := htmlDoc.parentWindow.event.srcElement;
da event = nil ist...