文章/答案/技术大牛

发布

社区首页 >问答首页 >TChromium鼠标点击

问TChromium鼠标点击
EN

Stack Overflow用户

提问于 2018-05-29 02:15:50

回答 1查看 1.4K关注 0票数 0

我想模拟一下鼠标点击一个页面。我在德尔福使用TChromium。

我尝试了下面的代码，但没有起作用。

code := 'document.getElementById(_2lkdt).click();';
Chromium1.Browser.MainFrame.ExecuteJavaScript(Code, 'about:blank', 0);

页面按钮是：

<button class="_2lkdt">
<span data-icon="send" class="">
    <svg id="Layer_1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0 24 24" width="24" height="24">
        <path fill="#263238" fill-opacity=".45" d="M1.101 21.757L23.8 12.028 1.101 2.3l.011 7.912 13.623 1.816-13.623 1.817-.011 7.912z"></path>
    </svg>
</span>

delphi

tchromium

回答 1

Stack Overflow用户

回答已采纳

发布于 2018-05-29 07:06:37

解决方案：

使用document.getElementsByClassName()。

示例：

HTML (button_tchromium.html)我为测试目的定义了类。

<html>
    <head>
    <meta http-equiv="X-UA-Compatible" content="IE=edge"/>
    <style>
    ._2lkdt {
        border: 1px solid black;
        margin: 25px;
    }
    </style>
    </head>
    <body>

    <button onclick="alert('I am clicked');" class="_2lkdt">
    <span data-icon="send" class="">
        <svg id="Layer_1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0 24 24" width="24" height="24">
            <path fill="#263238" fill-opacity=".45" d="M1.101 21.757L23.8 12.028 1.101 2.3l.011 7.912 13.623 1.816-13.623 1.817-.011 7.912z"></path>
        </svg>
    </span>

    </body>
</html>

德尔菲部分：

在这个测试中，我在表单上使用了两个按钮，一个用于加载html文件，另一个用于执行javascript。只需检查getElementsByClassName()浏览器支持即可。

procedure TForm1.btnExecuteClick(Sender: TObject);
var
   code: string;
   frame: ICefFrame;
begin
   code := 'var items = document.getElementsByClassName("_2lkdt"); '+
           'for (var i = 0; i < items.length; i++) { ' +
              'if (items[i].nodeName.toLowerCase() === "button") {' +
                 'items[i].click(); ' +
              '}' +
           '}';
   frame := Chromium1.Browser.MainFrame;
   frame.ExecuteJavaScript(code, frame.Url, 0);
end;

备注：

用Delphi7和TChromium (，dcef3-2378分支)进行测试.

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/50575450

复制

相似问题

问TChromium鼠标点击
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问TChromium鼠标点击EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问TChromium鼠标点击
EN