He estado dándole vueltas a tu pregunta y he llegado a algunos resultados.
Cuando un enlace abre una nueva ventana, antes de mostrarla genera el evento OnNewWindow2 al término del cual se crea la nueva instancia de IE
vacia. Después de ello se
generaría el evento OnBeforeNavigate2 en donde podrías determinar si permites o no la navegación. El punto es que en las condiciones por defecto, este evento no lo recibes ya que
quien lo recibe es la nueva instancia de IE que ya no reside en tu apicación sino en una ventana de IE.
La forma en que podrías solucionar esto es cambiando tales condiciones por defecto, es decir, forzar a que la nueva ventana sea de tu aplicación y no de IE. Para ello, en el evento OnNewWindow2 pondrías:
Código Delphi
[-]
with TForm1.Create(nil) do
ppDisp := WebBrowser1.Application;
De esta forma el enlace se abre en una nueva instancia del browser que
reside en una nueva instancia de Form1. Y ahí si puedes usar el evento OnBeforeNavigate2:
Código Delphi
[-]
if SePuedeAbrir
then Show
else Close;
En el evento OnClose del formulario pones
para que se liberen las nuevas instancias que se abran.
Seguramente hay que afinar detalles pero tal como está me ha funcionado bien.
// Saludos