![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день, пробовал различный методы но не выходит - вот код элемента:
<form method='post' id='remove_29831993' class='inline' action='?a=sell&group=2' > <input type='hidden' name='cmd' value='remove' /> <input type='hidden' name='item' value='29831993' /> <input type='hidden' name='k' value='17503' /> <input type='submit' class='cmd_all cmd_red cmd_ared ' value='ВЫБРОСИТЬ' > </form> там находится кнопка, как видите - загружаю через WebBrowser страницу, но вот при попытки нажать классическим методом: Код:
var ovElements: OleVariant; i: Integer; begin //WebBrowser1.OleObject.Document.forms.item(0).elements.item(0).click; ovElements := WebBrowser1.OleObject.Document.forms.item(1).elements; for i := 0 to (ovElements.Length - 1) do if ovElements.item(i).name='submit' then кликаем ничего не выходит, так вопрос как кликнуть всё же ? но по поводу того что бы навести курсором мыши - не нужно, это уж просто топорный метод.... За ранее благодарю за любую помощь.... Последний раз редактировалось Admin, 14.04.2013 в 14:32. |
#2
|
|||
|
|||
![]() Попробуй так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Doc: IHTMLDocument2; Buttons: IHTMLElementCollection; Button: IHTMLElement; i: Integer; begin Doc := WebBrowser1.Document as IHTMLDocument2; Buttons := Doc.all.tags('INPUT') as IHTMLElementCollection; for i := 0 to Inputs.length - 1 do begin Button := Inputs.item(i, EmptyParam) as IHTMLElement; if AnsiSameText(Trim(Input.innerText), 'Текст кнопки') then begin Input.click; Break; end; end; end; |