Как реализовать всплывающее окно в браузере с delphi?

@ludie 

Для реализации всплывающего окна в браузере с помощью Delphi можно использовать компонент TWebBrowser. Этот компонент позволяет загружать веб-страницы и управлять ими с помощью кода на Delphi.

Чтобы открыть всплывающее окно, необходимо воспользоваться событием BeforeNavigate2, которое возникает перед началом загрузки новой страницы. В обработчике этого события можно проверить, является ли адрес страницы адресом всплывающего окна, и если да, то открыть новое окно с помощью метода TWebBrowser.CreateBrowserWindow.

Примерный код может выглядеть следующим образом:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if (Flags and navOpenInNewWindow) <> 0 then
  begin
    Cancel := True;
    WebBrowser1.CreateBrowserWindow(URL, Flags, TargetFrameName, PostData, Headers);
  end;
end;

Этот код проверяет флаг navOpenInNewWindow, который указывает на то, что страница должна быть открыта в новом окне. Если этот флаг установлен, то загрузка страницы отменяется, и создается новое окно с помощью метода CreateBrowserWindow.