Discussion :

[DevelOpeR13]

Est-il possible d'empécher la sélection ddu text des page ?

merci

[Bidouille]

Je crois que tu fais cela dans ta page HTML directement avec du javaScript

[DevelOpeR13]

merci j'ai finalement trouver

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm2.MessageLoop(var Msg: TMsg; var Handled: Boolean);
// Application.OnMessage := MessageLoop;
begin
  if msg.hwnd = WebBrowser1.Handle then
    begin
      if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)or (Msg.Message = WM_MOUSEMOVE)	then
        begin
          handled:=True;
        end
    end
  else
    begin
      if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)or (Msg.Message = WM_MOUSEMOVE)then
        begin
          Handled := true;
      end;
    end;
end;