MounseOver mit TWebbrowser und Frames...

[marabu]

Vielleicht besser so:

Delphi-Quellcode:

procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var 
  wb2: IWebBrowser2;
begin
  if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2)) then
    with wb2 as IHTMLDocument2 do
      onMouseMove := TEventObject.Create(Document_OnMouseOver) as IDispatch;
end;

marabu