![]() |
|
#1
|
||||
|
||||
![]() Привет всем.Вот такая проблема -
на форме есть вебБраузер в вебБраузере загружена страница на этой странице есть кнопка ,как нажаь на эту кнопку ? Никак не могу добиться этого сам . 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; Это не работает Последний раз редактировалось Sharky, 20.06.2008 в 23:45. |