如何点击标签？ （Webbrowser - Delphi）

Question

如何点击“＆lt; / span＆gt;”在HTML页面中标记？

像这样：

<span id="_ID_">Hello There</span>

有可能吗？ 感谢

Answer 1

我想你想说“我如何在span元素上调用click事件？”。 对于span元素：

<span id="myId" onclick="myOnclikFunction()">Hello There</span>

在JavaScript中，您可以模拟点击（似乎仅适用于IE！）：

document.getElementById("myId").click();

使用jQuery，你可以在这样的元素上调用click事件（并调用myOnclikFunction（）函数）：

$('#myId').trigger("click");

或

$('#myId').click();

有关信息：id="_ID_"不是HTML有效代码。 id不能以“_”开头。它必须以字母A-Z或a-z开头（参见HTML id Attribute）。

Answer 2

您可以执行以下操作：

procedure TMainFrm.ClickBtnClick(Sender: TObject);
var
 Document : IHTMLDocument2;
 SPAN, Temp : IHTMLElement;
 ElementCount, I : Integer;
begin
 if WB.Document = nil then
  begin
   MessageBox(Handle, 'First Load a Page in TWebBrowser !!', '', MB_OK+MB_ICONEXCLAMATION);
   Exit;
  end;

 if SIDEdit.Text = '' then
  begin
   MessageBox(Handle, 'Enter SPAN ID !', '', MB_OK+MB_ICONEXCLAMATION);
   Exit;
  end;

 Document := WB.Document as IHTMLDocument2;
 ElementCount := Document.all.length;
 for I := 0 to ElementCount - 1 do
  begin
   Temp := Document.all.item(I, '') as IHTMLElement;
   if (Temp.tagName = 'SPAN') and (Temp.id = SIDEdit.Text) then
    begin
     SPAN := Temp;
     Break;
    end;
  end;
 if SPAN <> nil then
  SPAN.click
 else
  MessageBox(Handle, 'No SPAN Tag with ID Entered Found !', '', MB_OK+MB_ICONINFORMATION);
end;

将此组件放在表单上：

TWebBrowser ，名称：“ WB ”，用于浏览页面

TEdit ，名称：“ SIDEdit ”，用于提供SPAN标记ID

TBitBtn ，名称：“ ClickBtn ”，上面的代码是“ClickBtn”的OnClick事件

我认为代码很简单，变量是可以理解的，如果有必要，请告诉我解释代码......

There is an Example ...

祝你好运......！

Answer 3

内部跨度onclick =“yourJsFunctionishere（）;