TChromium как запретить открытие в новом окне

[Deman75]

Доброго времени суток!
Возникла следующая проблема. При открытии pdf файла, он открывается в новом окне. В интернете нашел как ее решить:

procedure TForm1.TCromium1BeforePopup(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
  targetFrameName: ustring; var popupFeatures: TCefPopupFeatures;
  var windowInfo: TCefWindowInfo; var client: ICefClient;
  var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
  out Result: Boolean);
begin
 result:=false;
end;

Этот код прекрасно работает.
Но браузер у меня создается динамически, и я не могу понять как мне этот код использовать.
Может кто уже сталкивался с подобным вопросом?

[indexx]

Cromium1.OnBeforePopup := TCromium1BeforePopup;

[Deman75]

Спасибо! Я и думал что что-то не так.
Изначально я сделал так

procedure TForm1.brow1BeforePopup(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; const targetUrl, targetFrameName: ustring;
  var popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
  var client: ICefClient; var settings: TCefBrowserSettings;
  var noJavascriptAccess: Boolean; out Result: Boolean);
var
 n:string;
begin
  n:=rightstr((sender as TChromium).name, length((sender as TChromium).Name)-4);
  (findcomponent('ed'+n) as TEdit).Text:=targeturl;
  result:=false;
  (findcomponent('brow'+n) as TChromium).Load(targeturl);
end;

И в таком виде не заработало. Открывалось в brow1 нормально, а в тех которые создавались динамически, открывалось одновременно и в окне и на странице.
В итоге сделал так

procedure TForm1.brow1BeforePopup(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; const targetUrl, targetFrameName: ustring;
  var popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
  var client: ICefClient; var settings: TCefBrowserSettings;
  var noJavascriptAccess: Boolean; out Result: Boolean);
var
 n:string;
begin
result:=true;      // чтобы не ссылка не открывалась в новом окне
if (sender as tchromium).Name<>'brow1' then
  begin
    n:=rightstr((sender as TChromium).name, length((sender as TChromium).Name)-4);
    (findcomponent('ed'+n) as TEdit).Text:=targeturl;
    (findcomponent('brow'+n) as TChromium).Load(targeturl)
  end
 else
  begin
   ed1.Text:=targeturl;
   brow1.Load(targeturl);
  end;
end;

И все стало нормально.
Спасибо!
Тему можно закрывать.