IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web & réseau Delphi Discussion :

TwebBrowser et menu contextuel


Sujet :

Web & réseau Delphi

  1. #1
    Membre confirmé

    Inscrit en
    Novembre 2002
    Messages
    744
    Détails du profil
    Informations forums :
    Inscription : Novembre 2002
    Messages : 744
    Points : 500
    Points
    500
    Par défaut TwebBrowser et menu contextuel
    Bonjour a tous.

    Je me sert de ce composant "TwebBrower" pour afficher des PDF, seulement pour cela et en aucun cas l'utilisateur ne peut faire autre chose. Donc le menu contextuel me gène et je voudrai ne pas pouvoir l'activer.

    Malgré toutes mes recherches et trouvailles sur le net pour remplir cette fonction.. rien ne marche.

    Quelqu' un a t il fait cela ? ou a t il une idée ou une solution qu'il a fait marcher ?

    PS: je parle du menu contextuel qui s'ouvre sur un click droit après le chargement et l'affichage un pdf et non du composant Tpopmenu que l'on peut ajouter au TwebBrowser.
    Bye et bon code...

    Ce n'est pas tant l'aide de nos amis qui nous aide , mais notre confiance dans cette aide .

  2. #2
    Expert confirmé
    Avatar de Ph. B.
    Homme Profil pro
    Freelance
    Inscrit en
    Avril 2002
    Messages
    1 784
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2002
    Messages : 1 784
    Points : 5 915
    Points
    5 915
    Par défaut
    Bonjour,
    Le clic droit génère un message qui passe nécessairement par l'application qui embarque le composant TWebBrowser.
    Il suffit de poser un composant TApplicationEvents et de traiter le message quand il s'adresse au composant TWebBrowser.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    begin
      // Clic Droit ?
      if (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_RBUTTONDBLCLK) then
        // La fenêtre de destination est une descendante de la fenêtre du TWebBrowser ?
        if IsChild(WebBrowser1.Handle, Msg.hwnd) then
          Handled := True;
    end;
    Philippe.

  3. #3
    Membre confirmé

    Inscrit en
    Novembre 2002
    Messages
    744
    Détails du profil
    Informations forums :
    Inscription : Novembre 2002
    Messages : 744
    Points : 500
    Points
    500
    Par défaut
    Bonjour , et bonjour Philippe.

    J'ai essayé les deux méthodes,
    - Celle ou tu as corrigé mon problème avec le nativeInt (post précédant).
    - Et celle qui tu viens de me donner.

    Ces deux méthodes interceptent bien le Click-droit de la souris, donc le menu contextuel, si la page chargée dans le TwebBrowser est une page HTML.

    Mais ne fonctionne pas si la page chargée dans le TwebBrowser une page PDF. En fait je suppose que le Twebbrowser utilise "conteneur" pour charger un Pdf.
    Et ne le connaissant pas, je ne connais pas son handle...

    une autre idée.. ?
    Bye et bon code...

    Ce n'est pas tant l'aide de nos amis qui nous aide , mais notre confiance dans cette aide .

  4. #4
    Expert confirmé
    Avatar de Ph. B.
    Homme Profil pro
    Freelance
    Inscrit en
    Avril 2002
    Messages
    1 784
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2002
    Messages : 1 784
    Points : 5 915
    Points
    5 915
    Par défaut
    Bonjour,
    Citation Envoyé par petitcoucou31 Voir le message
    Mais ne fonctionne pas si la page chargée dans le TwebBrowser une page PDF. En fait je suppose que le Twebbrowser utilise "conteneur" pour charger un Pdf.
    Et ne le connaissant pas, je ne connais pas son handle...

    une autre idée.. ?
    Pour l'instant, aucune , mais j'aimerais savoir :
    • quel est la version de IE sous-jacente ?
    • qui affiche le pdf, un plugin, IE nativement (mais ce serait surprenant, vu ce que vous avez dit) ?
    Philippe.

  5. #5
    Membre confirmé

    Inscrit en
    Novembre 2002
    Messages
    744
    Détails du profil
    Informations forums :
    Inscription : Novembre 2002
    Messages : 744
    Points : 500
    Points
    500
    Par défaut
    salut,

    je viens de jeter un coup d'oeil pour te repondre ..et en fait je viens de me rendre compte qu'il utilise surement un plugin de Adobe reader.
    J'ai les mêmes menu dans TwebBrower que dans Adobe, mais seulement quand j'ouvre le PDF en mode "readonly".

    merci a toi.
    Bye et bon code...

    Ce n'est pas tant l'aide de nos amis qui nous aide , mais notre confiance dans cette aide .

Discussions similaires

  1. TreeView et menu contextuel...
    Par agh dans le forum Composants VCL
    Réponses: 6
    Dernier message: 06/04/2009, 12h23
  2. Twebbrowser et menu contextuel
    Par m14w dans le forum Delphi
    Réponses: 1
    Dernier message: 16/03/2007, 08h14
  3. [Plugin] Ajouter une option au menu contextuel ?
    Par relivio dans le forum Eclipse Platform
    Réponses: 2
    Dernier message: 22/03/2004, 16h18
  4. [VB6] menu contextuel dynamique
    Par da40 dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 15/07/2003, 11h53
  5. [VB6] menu contextuel sur clique droit souris
    Par da40 dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 08/07/2003, 11h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo