Нажать на кнопку в WB

[kroŧ]

Есть кнопка на странице:

<button type="button" class="watch-comments-post yt-uix-button" onclick="yt.www.comments.watch5.post(this);;return false;" ><span class="yt-uix-button-content">Открыть</span></button>

Скажите как сделать нажатие по кнопке через TWebBrowser

[alexprey]

Ня

procedure TForm1.Button1Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).tagName = 'INPUT') and
      (ovElements.item(i).type = 'SUBMIT') and
      (ovElements.item(i).Value = 'Recent Charges') then
      ovElements.item(i).Click;
end;

[kroŧ]

этот пример уже пробовал ни чего не получилось
вот вся форма с html страницы

<form id="comments-post-form"
            class="input-collapsed"
            onsubmit="return false;"
            method="post"
            action="/comment_servlet?add_comment=1&amp;comment_type=V"
            data-comment-type="V">
          <input type="hidden" value="" name="form_id">
          <input type="hidden" value="" name="reply_parent_id" class="comment-parent-id">
          <input type="hidden" name="video_id" value="adm">
          <input type="hidden" name="return_ajax" value="true">
          <input type="hidden" id="screen" name="screen" value="">
          <input type="hidden" id="source" name="screen" value="w">
          <input type="hidden" name="session_token" value="I5EV6PY77DG67u4WH6CFYG..=="/>
          <textarea class="comments-textarea"
              name="comment"
              onfocus="yt.www.comments.watch5.inputFocus(this)"
              onblur="yt.www.comments.watch5.inputBlur(this)">
Ответить ...
          </textarea>
          <span class="comments-post-count"><input type="textbox" class="comments-post-count-textbox" value="200"> осталось символов</span>
          <div class="comments-post-area">
            <span class="comments-post-result"></span>
            <a href="#" onclick="yt.www.comments.watch5.cancelPost(this); return false;">Отмена</a>
или
            <button type="button" class="watch-comments-post yt-uix-button" onclick="yt.www.comments.watch5.post(this);;return false;" ><span class="yt-uix-button-content">Ответить</span></button>
          </div>
          <div class="clearR"></div>
        </form>

[kroŧ]

с заполнением разобрался

a:=EmbeddedWB1.oleobject.document.getElementbyid('comment'); //заполняем
a.value:=EditText.Text;

мне нужна сделать нажатие на Focus

 onfocus="yt.www.comments.watch5.inputFocus(this)"
  onblur="yt.www.comments.watch5.inputBlur(this)">

активировать окно затем на кнопку, как это сделать тут javascript я не врубаюсь
("javascript: yt.www.comments.watch5.post(this);" )
Пытался так делать

EmbeddedWB1.Document.QueryInterface(IHTMLDocument2, WB_Doc);
WB_HTMLWindow := WB_Doc.parentWindow;
 WB_HTMLWindow.execScript('yt.www.comments.watch5.post(this);;return false;', 'javascript')

Не удалось завершить действие. Ошибка 80020101

[kroŧ]

Уважаемые программисты ответе пожалуйста

[Voland-791]

можно еще так попробывать:

h:=WebBrowser1.OleObject.Document.f orms.item(0).elements;
if (h.item(i).name='is_statu') then
h.item(i).value:='1';
h.item(i).Click;

[kroŧ]

всё это уже пробовал с этой формой не работает
ладно всё сделал через Post, нажать кнопку так и не получилось

[Dimasw]

procedure TForm1.Button2Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.form s.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'BUTTON') and
(ovElements.item(i).type = 'button') then
ovElements.item(i).Click;
end;

[kroŧ]

Dimasw да везде работает, а тут не нажимает, тема закрыта всем спасибо