[trdfnbcc]

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

Код:

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

<center><span class='button-blue' onclick="login(document);" style="margin-top: 8px;">ВОЙТИ</span></center>

[Karsh]

Исправь на:

Код:

ovElements := EmbeddedWB1.OleObject.Document.forms.Item(0).elements;

Должно помочь.

[trdfnbcc]

Сообщение от Karsh

Исправь на:

Код:

ovElements := EmbeddedWB1.OleObject.Document.forms.Item(0).elements;

Должно помочь.

Не помагло также вылетает ошибка Invalid variant operation

[Karsh]

Тогда сделайте ещё так:

Код:

if String(ovElements.item(i).style) = 'margin-top: 8px;' then

[trdfnbcc]

Сообщение от Karsh

Тогда сделайте ещё так:

Код:

if String(ovElements.item(i).style) = 'margin-top: 8px;' then

страно но так вопще кнопка не на какае действия не реагирует почему так непонятно.

[trdfnbcc]

Что не ужели невозможно так кликнуть на неё?