如何點擊標簽？ （Webbrowser - Delphi）

Question

如何點擊html頁面中的“</ span>”標簽？

像這樣 ：

<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不能以“_”開頭。 它必須以字母AZ或az開頭（請參閱HTML id屬性 ）。

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事件

我認為代碼很簡單，變量是可以理解的，如果有必要，請告訴我解釋代碼......

有一個例子 ......

祝好運 ... ！

Answer 3

inside span onclick =“yourJsFunctionishere（）;