Плиз! помагите разобратся с кликом по кнопке не могу понять почему не получается делаю так.
Код:
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>