VPF::ihtmlelement.click не работает - Форум программистов

simbioze

Дата 2.5.2011, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2010

Репутация: нет
Всего: нет

ihtmlelement - это кнопка такого вида:

Код


<div class="but" tabindex="0" role="button" style="-moz-user-select: none;" aria-pressed="false">

focus() работает, innerhtml, outerhtml показывает, но не кликается.
fireevent("onclick") тоже не дает результата.
подскажите, кто сталкивался, как такую кнопку нажать?

Это сообщение отредактировал(а) simbioze - 2.5.2011, 17:05

volvo877

Дата 3.5.2011, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 5
Всего: 116

Цитата(simbioze @ 2.5.2011, 15:46

)

fireevent("onclick") тоже не дает результата.

FireEvent('onmousedown') даёт результат.

simbioze

Дата 20.5.2011, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2010

Репутация: нет
Всего: нет

Код


dummy:=null;
eventobj:=(doc as ihtmldocument4).CreateEventObject(dummy);
eo:=(eventobj as ihtmleventobj2);
(test as ihtmlelement3).FireEvent('onmousedown',eo);

пробую так. не помогает.

volvo877

Дата 20.5.2011, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 5
Всего: 116

Цитата(simbioze @ 20.5.2011, 17:29

)

пробую так. не помогает.

Правда?

Может, все проще?

Код

// Этап первый - захожу на сайт
WebBrowser1.Navigate('http://test.cita.illinois.edu/aria/button/button1.php');

// Этап второй:
procedure TForm1.Button4Click(Sender: TObject);
var
   Elem: IHTMLElement3;
   EventObj : OleVariant;
begin
   Elem := (WebBrowser1.Document as IHTMLDocument3).GetElementById('bold1') as IHTMLElement3;
   eventObj:=Unassigned;
   Elem.FireEvent('onmousedown', EventObj);

   // Кнопка нажата...
end;

Внимание, вопрос: что я делаю не так?

simbioze

Дата 20.5.2011, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2010

Репутация: нет
Всего: нет

возможно, дело в javascript-обработчике. проанализировать его толком не могу, т.к. код обфусцирован.
придумал костыль, может, поможет кому-нибудь:

Код



var doc: ihtmldocument2;
test,test2: ihtmlelement;
eventobj: ihtmleventobj;
dummy, eo: olevariant;
begin
{ поиск кнопки поскипан }
(test2 as ihtmlelement2).focus;
dummy:=null;
eventobj:=(doc as ihtmldocument4).CreateEventObject(dummy);
eo:=(eventobj as ihtmleventobj2);
eo.keycode:=13;
(test2 as ihtmlelement3).FireEvent('onkeydown',eo);
(test2 as ihtmlelement3).FireEvent('onkeypress',eo);
(test2 as ihtmlelement3).FireEvent('onkeyup',eo);
end;

спасибо

Это сообщение отредактировал(а) simbioze - 20.5.2011, 23:21

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »