Заполнение формы и нажатие кнопок. TWebBrowser

@Orange17 · Регистрация: 01.10.2013

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.btn7Click(Sender: TObject);
var
  search: Variant;
begin
  wb1.Navigate('https://www.google.ru/');
  search:=wb1.OleObject.document.getelementbyid('gbqfq');
  search.value:=edt1.Text;
  wb1.OleObject.document.getelementbyid('btnK').Click;
end;

При нажатии на кнопку, прога должна перейти по адресу и заполнить строку поиска Edit'ом, который вводит заранее. Прога нормально компилируется, но при нажатии а кнопку вылазит ошибка

Заполнение формы и нажатие кнопок. TWebBrowser

Предполагаю, что нужно, чтобы программа сначала полностью открыла гугл, а потом выполняла заполнение. Только как это сделать в одной процедуре?
P.S. ПРи отладке выделяет эту строку:

Pascal

1	search:=wb1.OleObject.document.getelementbyid('gbqfq');

@RemFex · 11.10.2018, 20:13

Жаль что прошло уже четыре года)))
Все дело в том что 'gbqfq' нету на сайте, поэтому и не заполняет.

@RemFex 0 / 0 / 0 Регистрация: 14.06.2018 Сообщений: 2
	11.10.2018, 20:13	2
	Жаль что прошло уже четыре года))) Все дело в том что 'gbqfq' нету на сайте, поэтому и не заполняет. 0