Тема: WebBrowser1
Показать сообщение отдельно
  #1  
Старый 11.03.2012, 23:40
trdfnbcc trdfnbcc вне форума
Прохожий
 
Регистрация: 11.03.2012
Сообщения: 11
Репутация: 10
По умолчанию WebBrowser1

Плиз! помагите разобратся с кликом по кнопке не могу понять почему не получается делаю так.

Код:
procedure TForm1.Button3Click(Sender: TObject);
var
  I: Integer;
  ovElements: OleVariant;
begin
  ovElements := EmbeddedWB1.OleObject.Document.forms.Item.elements;
  for I := 0 to ovElements.Length - 1 do
begin
  if ovElements.item(i).style='margin-top: 8px;' then
  ovElements.item(i).click
end;
end;

end.

но вместо клика получаю ошибку вот эту Invalid variant operation

Код HTML:
<center><span class='button-blue' onclick="login(document);" style="margin-top: 8px;">ВОЙТИ</span></center>
Ответить с цитированием