dcef3 为按钮添加单击事件

http://ju.outofmemory.cn/entry/78083

dcef3 为按钮添加单击事件

BccSafe's Blog  2014-06-01 3706 阅读

DOM

演示dcef3操作HTML DOM的方法

本来想拿Google下手，可是由于GFW的关系，还是用Baidu测试好了

给标题名为“百度一下”的按钮添加一个执行delphi函数的单击事件

{$I cef.inc} type TCustomRenderProcessHandler = class(TCefRenderProcessHandlerOwn) protected procedure OnWebKitInitialized; override; function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; override; end; TTestExtension = class class function hello: string; end; procedure TMainForm.Button2Click(Sender: TObject); begin Chromium.browser.SendProcessMessage(PID_RENDERER, TCefProcessMessageRef.New('visitdom'));//操作DOM end; procedure ButtonClickProc(const Event: ICefDomEvent); begin ShowMessage('Click The Button'); end; procedure VisitDomProc(const Doc: ICefDomDocument); var ButtonNode: ICefDomNode; begin ButtonNode := Doc.GetElementById('su1'); if Assigned(ButtonNode) then ButtonNode.AddEventListenerProc('click', True, ButtonClickProc); end; { TCustomRenderProcessHandler } function TCustomRenderProcessHandler.OnProcessMessageReceived( const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; begin {$IFDEF DELPHI14_UP} if (message.Name = 'visitdom') then begin browser.MainFrame.VisitDomProc

转载于:https://www.cnblogs.com/delphi-xe5/p/8622924.html