Кнопка
Привет всем.Вот такая проблема -
на форме есть вебБраузер в вебБраузере загружена страница на этой странице есть кнопка ,как нажаь на эту кнопку ? Никак не могу добиться этого сам .
procedure TForm1.Button1Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).eleme nts;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'SUBMIT') and
(ovElements.item(i).Value = 'Recent Charges') then
ovElements.item(i).Click;
end;
Это не работает
|