Discussion :

[dale_coop]

Bonjour

En delphi 7, j'ai un TWebBrowser, une page chargée dedans, un popup menu personnalisé.
Lorsque je fais un clic droit dans le TwebBrowser, donc lorsque le popup s'affiche j'aimerais désactiver certains items si aucun sélection (par exemple désactiver mon "copier dans le press papier", mon "exporter le contenu vers autre appli", ... qui sont des items perso)

Mais je n'arrive pas à trouver comment savoir si j'ai quelquechose de sélectionné dans le TWebBrowser

Quelqu'un a déjà fait ?

++
dale

[sgmsg]

Salut

J'ai une routine qui traine dans mes librairies. Je ne m'en sert plus depuis belle lurette. Mais ça devrait marcher...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
...
    navigateur.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT);//' select the entire document
    navigateur.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);//' copy the text to Clipboard
    result:= clipboard.AsText;

La premiere ligne sert à selectionner, donc le code devient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    navigateur.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT);//' copy the text to Clipboard
    result:= clipboard.AsText;

Si result est vide alors c'est probablement que rien n'est sélectionner... Si rien n'est sélectionner alors tu peux dés/activer les options de ton choix...

Ça vaut la peine d'essayer

A+