Chromium, если страница открывается в новом окне, как обратиться к этому окну?

[Женя32]

Здравствуйте!
Chromium при нажатии на ссылку, страница открывается в новом окне, подскажите пожалуйста, как программно обратиться к этому окну?

[NetSpace]

по заголовку окна (если он каждый раз одинаковый - там кода на 15 строк) или по хэндлу - создаёшь список тех, что уже открыты и каждую секунду смотришь, не появилось ли новое окошко.

[Alex11223]

Он не настолько садомазохист, чтобы управлять обычным Хромом. Конечно он все равно выбрал не самый удобный вариант для автоматизации браузеров (Selenium), но все-таки хоть TChromium.
...в котором наверняка есть событие открытия нового окна.

[Женя32]

Нашел в интернете способ "запрета" открытия страницы в новом окне, но почему-то вообще перестало реагировать...

procedure TForm2.Chromium1BeforePopup(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
  targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
  userGesture: Boolean; var popupFeatures: TCefPopupFeatures;
  var windowInfo: TCefWindowInfo; var client: ICefClient;
  var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
  out Result: Boolean);
  var
     url: String;
begin
result:=true;
Chromium1.Load(url);
end;

А вот это что за событие?: OnRunModal
Если есть событие открытия нового окна, то как оно называется?

[Alex11223]

Сообщение от Женя32

почему-то

в таких случаях надо начинать с добавления логирования/отладочной печати.

Сообщение от Женя32

Если есть событие открытия нового окна, то как оно называется?

так это оно и есть, сами ж сказали, что перестало открываться.

[Женя32]

Сообщение от Alex11223

...

так это оно и есть, сами ж сказали, что перестало открываться.

Нет, перестало открываться тогда, когда код прописал в BeforePopup, а вот с OnRunModal не понятно, когда оно срабатывает...
Так ничего не происходит:

procedure TForm2.Chromium1RunModal(Sender: TObject; const browser: ICefBrowser;
  out Result: Boolean);
begin
ShowMessage('Сработало!');
end;

[Alex11223]

Причем тут это? Очевидно, что если событие срабатывает во время открытия нового окна (срабатывает же?), да еще и можно из него запретить открытие нового окна, то это и есть событие открытия нового окна.

[Женя32]

Сообщение от Alex11223

...да еще и можно из него запретить открытие нового окна, то это и есть событие открытия нового окна.

Передать в это, создаваемое, окно что нибудь можно? Например, вставить в input текст?

[Alex11223]

Дык посмотрите что передается в событие, добавьте отладочный вывод и т.п.

[Женя32]

Может кому-то пригодиться..
Сделал так:

result:=true;
   if (sender as tchromium).Name = 'Chromium1' then
     begin
         Chromium1.Load(targeturl);
     end

Сейчас страница загружается не в отдельном окне, а в том, где кликнули по ссылки... А там уже можно что нужно, то и отправлять на страницу.