Comment annuler l'ouverture d'un popup avec le TWebBrowser ?Résolu

Question

Salut &#224; tous, 
Voila je voudrais savoir comment on peut annuler l'ouverture d'un popup avec le TWebBrowser ? 
Donc je connais d&#233;j&#224; cette source : 

Code:
,
----

procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := True;
end;
C&#146;est vraiment bien comme source mais quand tu veux ouvrir une autre fen&#234;tre de la page &#231;a ne marche pas car tu annule l'ouverture de toute les page m&#234;me celle qui ne sont pas de pupup's. 
Quelqu'un &#224; une autre m&#233;thode ? 
Merci d&#146;avance.

Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Accepted Answer

J'ai trouver ce bout de code qui marche mais sa cr&#233;er des TabSheet, et moi il faut juste virer le popup : <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;


  var ppDisp: IDispatch; var Cancel: WordBool);


begin


  memo1.Lines.add('WebBrowser1NewWindow2');


  TabSheet := TTabSheet.Create(Owner);


  TabSheet.PageControl := PageControl1;


  Webbrowser2 := TCustomBrowser.Create(Owner);


  TWinControl(Webbrowser2).Parent := TabSheet;


  with Webbrowser2 Do


  begin


    Align := AlClient;


    ppDisp := WebBrowser2.Application;


    OnBeforeNavigate2     := WebBrowser1.OnBeforeNavigate2;


    OnCommandStateChange  := WebBrowser1.OnCommandStateChange;


    OnDocumentComplete    := WebBrowser1.OnDocumentComplete;


    OnDownloadBegin       := WebBrowser1.OnDownloadBegin;


    OnDownloadComplete    := WebBrowser1.OnDownloadComplete;


    OnDragDrop            := WebBrowser1.OnDragDrop;


    OnDragOver            := WebBrowser1.OnDragOver;


    OnEndDrag             := WebBrowser1.OnEndDrag;


    OnEnter               := WebBrowser1.OnEnter;


    OnExit                := WebBrowser1.OnExit;


    OnFullScreen          := WebBrowser1.OnFullScreen;


    OnMenuBar             := WebBrowser1.OnMenuBar;


    OnNavigateComplete2   := WebBrowser1.OnNavigateComplete2;


    OnNewWindow2          := WebBrowser1.OnNewWindow2;


    OnProgressChange      := WebBrowser1.OnProgressChange;


    OnPropertyChange      := WebBrowser1.OnPropertyChange;


    OnQuit                := WebBrowser1.OnQuit;


    OnStartDrag           := WebBrowser1.OnStartDrag;


    OnStatusBar           := WebBrowser1.OnStatusBar;


    OnStatusTextChange    := WebBrowser1.OnStatusTextChange;


    OnTheaterMode         := WebBrowser1.OnTheaterMode;


    OnToolBar             := WebBrowser1.OnToolBar;


    OnVisible             := WebBrowser1.OnVisible;


  end;


  PageControl1.ActivePageIndex := PageControl1.PageCount - 1;


end;


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Salut jmp77,
D&#233;j&#224; merci d'avoir chercher pour m'aider.
Sinon le premier lien &#224; aucun rapport avec ce que je recherche, pour le deuxiemme liens c'est pas ce que je recherche aussi, car cette source ne bloque pas  les popups mais les ouvres dans une autre page.


Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Non c'est pas du tout ce que je recherche, mais merci comme meme.

Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

Perso j'ai trouv&#233; &#231;a :



procedure TForm1.BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;, ----
var Cancel: WordBool);, ----
begin, ----
if KillPopUps then ppDisp:=BrowserDummy;, ----
end;



le KillPopups peut etre une Checkbox coch&#233;e ou non. le BrowserDummy surement un TWebBrowser pos&#233; sur un panel cach&#233; ? a voir !

BenXbox · Answer

Ta trouver ou cette source parce que j'ai pas les var de KillPopUps et BrowserDummy  pour essayer.

Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

j'ai dit :

"le KillPopups peut etre une Checkbox coch&#233;e ou non. le BrowserDummy surement un TWebBrowser pos&#233; sur un panel cach&#233; ? a voir !"



donc KillPopups est une var booleenne qui contient la valeur de la cache coch&#233;e, tu peux aussi faire :




procedure TForm1.BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
, ----
  var Cancel: WordBool);
, ----
begin, ----
     if CheckBox1.Checked then ppDisp:=WebBrowser2;

, ----
end;



WebBrowser2 est un TWebBrowser pos&#233; sur un TPanel, et le TPanel a sa prop. "visible" sur False;



voila tu as tes reponses

BenXbox · Answer

Oui mais non c'est le meme probleme que :

Code:
,
----

procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := True;
end;
C&#146;est vraiment bien comme source mais quand tu veux ouvrir une autre fen&#234;tre de la page &#231;a ne marche pas car tu annule l'ouverture de toute les page m&#234;me celle qui ne sont pas de pupup's. 


Mon Site Web : http://Www.BenXbox.Fr.sT

Comment annuler l'ouverture d'un popup avec le TWebBrowser ?

7 réponses

Votre réponse

Discussions similaires