Salut a tous, hey oui encore moi sur ce forum a poser des questions sur le
TWebbrowser, mais la, ce probleme la me bug vraiment!...
J'explike, j'ai inserer un code dans mon source pour pouvoir desactiver le
contextmenu(bouton droit) de internet explorer kand on click droit sur le
TWebbrowser!... Ma question est maintenant de savoir comment je fait pour ajouter mon PopupMenu au TWebbrowser kand on je click droit dessus?¿? Jai essayer dans la Proprieter Popupmenu de mon TWebbrowser et mon TPagecontrol qui contient mon TWebbrowser, mais rien. Merci a ceux qui pourront me repondre! :)
Et pour les curieux, interesser ou si ca peut aider, Voici le code pour desactiver le context menu de IE:
Dans les Variables de depart:
Au tout debut avant toute procedure, j'insere ca comme fonction:
function MouseProc(nCode: Integer; wParam, lParam: Longint): LongInt; stdcall; var classbuf: array[0..255] of Char; const ie = 'Internet Explorer_Server'; begin case nCode < 0 of True: Result := CallNextHookEx(MouseHook, nCode, wParam, lParam); False: case wParam of WM_RBUTTONDOWN, WM_RBUTTONUP: begin GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, classbuf, SizeOf(classbuf)) ; if lstrcmp(@classbuf[0], @ie[1]) = 0 then Result := HC_SKIP else Result := CallNextHookEx(MouseHook, nCode, wParam, lParam) ; end else begin Result := CallNextHookEx(MouseHook, nCode, wParam, lParam) ; end; end; //case wParam end; //case nCode end; (*MouseProc*)
|
Ensuite dans l'Evenements OnCreate de la Form:
MouseHook := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId()) ;
|
Et finalement dans l'evenements OnDestroy de la form:
if MouseHook <> 0 then UnHookWindowsHookEx(MouseHook) ;
|
Merci,
Armz
---
Are you
CrAZy or jUSt
InsaNE?
[ Lien ]---