TChromium OnClick

Question

我想跟蹤用戶在TChromium內做了多少點擊。我不在乎他是否點擊了「空白區域」/鏈接/按鈕/圖片等。我只想知道他點擊了多少次。我希望TChromium有Onclick事件，但沒有。我怎麼知道用戶點擊？

Answer 1

您可以添加事件偵聽器。這裏的問題是CEF3不支持像CEF1那樣的DOM事件監聽器，所以它不是那麼容易的（儘管不是不可能）。在我嘗試製作V8交互示例之前，一個非常骯髒的解決方法就是這樣。您創建一個足夠唯一的字符串，爲整個文檔添加一個事件偵聽器，並且在這種情況下您使用該唯一字符串記錄消息。而在Delphi中，你會等着，例如：

const 
    MyClickMessage = '08B52B44-748F-44BB-AC6C-5179D6C1F523'; 

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; 
    const frame: ICefFrame; httpStatusCode: Integer); 
begin 
    if frame.IsMain then 
    frame.ExecuteJavaScript(
     'document.addEventListener("click", function(evnt){' + 
      'console.log("' + MyClickMessage + '");' + 
     '});', 
     '', 
     0); 
end; 

procedure TForm1.Chromium1ConsoleMessage(Sender: TObject; const browser: ICefBrowser; 
    const message, source: ustring; line: Integer; out Result: Boolean); 
begin 
    if message = MyClickMessage then 
    begin 
    Result := True; 
    ShowMessage('User clicked!'); 
    end; 
end; 

哈克獨特日誌消息，吧:)？我會嘗試想出更好的東西（使用V8引擎）。