Accueil > Forum > > > > retiré le clic droit WebBrower
retiré le clic droit WebBrower
mardi 18 septembre 2007 à 10:18:52 |
retiré le clic droit WebBrower

yannfrance
|
Bonjour, Je souhaiterais avec votre aide pouvoir enlever le clic droit dans un TWebBrowser. Voici mon morceau de code: procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.mon site.fr'); end
Merci à vous tous.
|
|
mardi 18 septembre 2007 à 15:36:38 |
Re : retiré le clic droit WebBrower

f0xi
|
var HookID : THandle;
function MouseProc(nCode: integer; wParam, lParam: longint): longint; stdcall; function GetClassNameEnh(Handle: Hwnd): string; var ClassName: PChar; begin getmem(ClassName, 40); windows.GetClassName(Handle, ClassName, 40); Result := ClassName; Freemem(ClassName); end; var P: TPoint; begin if nCode < 0 then Result := CallNextHookEx(HookID, nCode, wParam, lParam) else if (wParam = WM_RBUTTONDOWN) or (wParam = WM_RBUTTONUP) then begin GetCursorPos(P); if Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0 then Result := HC_SKIP else Result := CallNextHookEx(HookID, nCode, wParam, lParam); end else Result := CallNextHookEx(HookID, nCode, wParam, lParam); end;
procedure TForm1.FormCreate(Sender: TObject); begin // start mouse hook HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId); end;
procedure TForm1.FormDestroy(Sender: TObject); begin // end mouse hook if HookID <> 0 then UnHookWindowsHookEx(HookID); end;
|
|
mardi 18 septembre 2007 à 15:54:20 |
Re : retiré le clic droit WebBrower

yannfrance
|
Bonjour,
Merci pour vos reponse, mais malheuresement, je debute sous delphi, donc c'est un gros combat pour moi. J'ai essayer de placer ce morceau de code un peu partout, mais j'arrive à des erreur de compilation. Voici mes sources, si vous pouvez me dire ou dois-je inclure ce code:
merci beaucoup.
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw_TLB, StdCtrls;
type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://mon_lien.fr'); end;
end.
|
|
mercredi 19 septembre 2007 à 17:07:17 |
Re : retiré le clic droit WebBrower

l0sth34d2
|
Une fois inclu, le code devrais ressembler à ceci:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw_TLB, StdCtrls;
type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;
var Form1: TForm1; HookID : THandle;
implementation
{$R *.dfm}
function MouseProc(nCode: integer; wParam, lParam: longint): longint; stdcall; function GetClassNameEnh(Handle: Hwnd): string; var ClassName: PChar; begin getmem(ClassName, 40); windows.GetClassName(Handle, ClassName, 40); Result := ClassName; Freemem(ClassName); end; var P: TPoint; begin if nCode < 0 then Result := CallNextHookEx(HookID, nCode, wParam, lParam) else if (wParam = WM_RBUTTONDOWN) or (wParam = WM_RBUTTONUP) then begin GetCursorPos(P); if Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0 then Result := HC_SKIP else Result := CallNextHookEx(HookID, nCode, wParam, lParam); end else Result := CallNextHookEx(HookID, nCode, wParam, lParam); end;
procedure TForm1.FormCreate(Sender: TObject); begin HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId); WebBrowser1.Navigate('http://mon_lien.fr'); end;
procedure TForm1.FormDestroy(Sender: TObject); begin // end mouse hook if HookID <> 0 then UnHookWindowsHookEx(HookID); end;
end.
|
|
Cette discussion est classée dans : clic, droit, retiré, webbrower
Répondre à ce message
Sujets en rapport avec ce message
webbrowser et clic droit [ par pino66 ]
Comment neutraliser le clic droit d'un webbrowser? Quand un webbrowser est en fonctionnement, le clic droit ouvre un menu popup plus ou moins indésira
Clic droit dans un menu [ par flagada ]
Bonjour à tous ! Est-ce que vous sauriez comment faire la différence entre un clic gauche et un clic droit lors du clic dans un menu (évènement TMenuI
desactiver clic droit sous internet explorer [ par ssd ]
Bonjour, comment faire pour desactiver le clic droit d'internet explorer , sous un Twebrowser ???d'avance merci.
Bloquer le clic droit [ par Tenken ]
Bonjour a tous...J'aimerais bloquer le clic droit pour mon browser...Puis-Je savoir comment faire?
Clic droit... [ par PetitTachon ]
Bonjour,Voilà, je voudrais que mon application se lance quand on clic droit. Y a-t-il une clé du registre qui me le permet ?Quelle est la syntaxe pour
Problème listview clic droit [ par pelly1308 ]
Bonjour tout le monde.J'écris car j'ai un problème avec une liste view.En fait, j'utilise principalement l'entête des colonnes de cette listview (en m
actualiser un site et simuler un clic de souris [ par sarril ]
Bonjour, je cherche un prog qui puisser actualiser une page d'un site (pas à moi) à une fréquence donnée et après chaque actualisation, simuler un cl
Equivalent de chmod pour les composant INDY [ par Isabelle31 ]
Bonjour a tous, Je me demandais comment on fait avec un composant INDY, TIdFTP pour modifier les droit d'un utilisteur connecté à
Click droit dans explorer.exe [ par dxh_master ]
voila jaimerait associer mon aplis au fichier .rstp et que quand on face un click droit dans lexploreateur de windows >> nouveau >> Nouveau ficchier
Livres en rapport
|
Derniers Blogs
[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|