在Windows 10的 Delphi 11 VCL应用程序中，面板的PopupMenu属性被赋值为TPopupMenu。当在运行时双击面板控件并同时按下SHIFT+CONTROL键时，面板的POPUPMENU被调用！在这种情况下，我如何避免调用弹出菜单，而是执行我自己的操作？

procedure TForm1.PanelDblClick(Sender: TObject);
begin
  if (GetKeyState(VK_SHIFT) < 0) and (GetKeyState(VK_CONTROL) < 0) then
  begin
    // Does not work - the PopupMenu is always invoked:
    ShowMessage('The SHIFT+CONTROL keys are being pressed.');
  end;
end;