Strg+N in Webbrowser deaktivieren ?

[thomas2009]

Zitat von toms:

Tipp: setze die Klammern richtig

ich habe folgendes gemacht :
// 1:

Delphi-Quellcode:

if (GetKeyState(VK_SHIFT) < 0) and
(Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)
 then begin
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
 Caption:='shift pressed +Click ;)';
  end;

//2:

Delphi-Quellcode:

if (GetKeyState(VK_SHIFT) < 0) and
(Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)
 then begin
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
 Caption:='shift pressed +Click ;)';
  end;

//3:

Delphi-Quellcode:

if ((GetKeyState(VK_SHIFT) < 0) and (Msg.Message = WM_RBUTTONDOWN)) or
((GetKeyState(VK_SHIFT) < 0) and (Msg.Message = WM_RBUTTONUP))
 then begin
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
 Caption:='shift pressed +Click ;)';
  end;

keine funktioniert

[toms]

Delphi-Quellcode:

if ((Msg.Message = WM_LBUTTONDOWN) or (Msg.Message = WM_LBUTTONUP)) and 
  (GetKeyState(VK_SHIFT) < 0) then 
begin 
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd); 
  Caption := 'shift+ click'; 
end;

[thomas2009]

Es funktioniert jetzt. Danke!

Gruß