Плиз! помагите разобратся с кликом по кнопке не могу понять почему не получается делаю так.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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>