【例子介绍】
使用谷歌内核打开网站
【相关图片】
【源码结构】
procedure TMainForm.actDocExecute(Sender: TObject);
begin
crm.Load('http://magpcss.org/ceforum/apidocs3');
end;
procedure TMainForm.actDomExecute(Sender: TObject);
begin
if crm.Browser <> nil then
crm.Browser.MainFrame.ExecuteJavaScript(
'document.body.addEventListener("mouseover", function(evt){'
'function getpath(n){'
'var ret = "<" n.nodeName ">";'
'if (n.parentNode){return getpath(n.parentNode) ret} else '
'return ret'
'};'
'app.mouseover(getpath(evt.target))}'
')', 'about:blank', 0);
end;
评论