| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как снять флажок из Delphi у компонента HTML "checkbox"? [D6, D7, WinXP]

Vopros123123 ©   (2008-01-05 02:22:00) 

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

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

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

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

---

Vopros123123   (2008-01-05 18:24:00) [1]

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

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

---

homm   (2008-01-05 17:44:00) [2]

> [4] Vopros123123   (05.01.08 17:32)

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

---

Vopros123123   (2008-01-05 17:32:00) [3]

> 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;

---

homm   (2008-01-05 16:25:00) [4]

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

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

---

Vopros123123   (2008-01-05 15:57:00) [5]

> 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 15:21:00) [6]

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

---

Наверх