Menu contextuel TWebbrowser
ActiveX
Messages postés
32
Date d'inscription
jeudi 6 février 2003
Statut
Membre
Dernière intervention
22 janvier 2008
-
27 nov. 2003 à 02:06
smot Messages postés 2 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 26 mai 2005 - 19 nov. 2008 à 06:20
smot Messages postés 2 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 26 mai 2005 - 19 nov. 2008 à 06:20
1 réponse
smot
Messages postés
2
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
26 mai 2005
19 nov. 2008 à 06:20
19 nov. 2008 à 06:20
avec TApplicationEvents:
procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message WM_RBUTTONDOWN) or (Msg.Message WM_RBUTTONDBLCLK) then
begin
Handled := IsChild(Webbrowser1.Handle, Msg.hwnd);
end;
end;
procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message WM_RBUTTONDOWN) or (Msg.Message WM_RBUTTONDBLCLK) then
begin
Handled := IsChild(Webbrowser1.Handle, Msg.hwnd);
end;
end;