Es stimmt was nicht um Shift + Click zu deaktivieren
Es wird trotzdem ein neues Fenster erstellt :
Delphi-Quellcode:
procedure TForm1.OnAppMessge(var Msg: tagMSG; var Handled: Boolean);
begin
if ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) and
(GetKeyState(VK_SHIFT) < 0)) then begin
Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
Caption:='shift pressed ;)';
end;
end;
aber wenn ich Shift allein deaktiviere dann funktioniert :
Delphi-Quellcode:
if (GetKeyState(VK_SHIFT) < 0)) then begin
Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
Caption:='shift pressed ;)';
end;
end;