Как снять флажок из Delphi у компонента HTML "checkbox"?

← →
Vopros123123 (2008-01-05 02:22) [0]

По щелчку кнопки на форме нужно произвести снятие флажка в HTML документе, который загружен в TWebBrowser. Только как?..

HTML код:
<input type="checkbox" name="allow_rating" value="1" checked>

Иными словами, нужно как-то сбросить параметр checked. Но как?..

Заранее спасибо!

← →
homm © (2008-01-05 15:21) [1]

procedure TForm1.Button6Click(Sender: TObject); var DOM: Variant; begin DOM := WB.OleObject.Document; DOM.getElementById("my-checkbox").checked = "true"; end;

← →
Vopros123123 (2008-01-05 15:57) [2]

> homm © (05.01.08 15:21) [1]
> procedure TForm1.Button6Click(Sender: TObject);
>var DOM: Variant;
>begin DOM := WB.OleObject.Document;
> DOM.getElementById("my-checkbox").checked = "true";
>end;

Мне нужно не поставить, а снять флажок. Установка в False не помагает

← →
homm © (2008-01-05 16:25) [3]

> [2] Vopros123123 (05.01.08 15:57)
> Установка в False не помагает

установка в "" помогает?

← →
Vopros123123 (2008-01-05 17:32) [4]

> homm © (05.01.08 16:25) [3]
> > [2] Vopros123123 (05.01.08 15:57)> Установка в False
> не помагаетустановка в "" помогает?

Нет, не помагает

Решил трабл следующим образом:
var ovElements: OleVariant; i:Integer; begin ovElements := NLWB.OleObject.Document.forms.item(2).elements; for i := 0 to (ovElements.Length - 1) do if (ovElements.item(i).tagName = "INPUT") and (ovElements.item(i).type = "checkbox") and (ovElements.item(i).Name = "my_checkbox_name") then ovElements.item(i).Click; end;

> [4] Vopros123123 (05.01.08 17:32)

Зачем эта вся партянка, не проще id проставить?

← →
Vopros123123 (2008-01-05 18:24) [6]

> homm © (05.01.08 17:44) [5]
> > [4] Vopros123123 (05.01.08 17:32)Зачем эта вся партянка,
> не проще id проставить?

Можно и по id :-) Но на серваке, к которому код пишу, id не указывается

Как снять флажок из Delphi у компонента HTML "checkbox"? Найти похожие ветки