[gdoom]

Добрый день, пробовал различный методы но не выходит - вот код элемента:
<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 кликаем

Админ: Пользуемся тегами для оформления кода.

ничего не выходит, так вопрос как кликнуть всё же ? но по поводу того что бы навести курсором мыши - не нужно, это уж просто топорный метод.... За ранее благодарю за любую помощь....

[cyborgg4655]

Попробуй так:

Код:

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;