移动远程访问时按 Ctrl 键 window

Question

我有以下问题：我有一个应用程序，其中 Ctrl 键激活一个应用程序事件，并且一些用户使用 RDP（远程访问）来使用该应用程序，问题是每次都会触发 Ctrl 键用户将 RDP window 或应用程序开关和 return 移动到 RDP 的时间。

例如：

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_CONTROL) then
    ShowMessage('Ctrl Pressed');
end;

我能够看到应用程序检测到 WM_KEYUP 消息并对其进行了处理，最终触发 OnKeyUp 事件带参数 17 (Ctrl)，模拟按下 Ctrl 键。

我想知道是否有人知道此行为是否是 Delphi / RDP 中的错误，以及是否它有任何可能的解决方案。

我正在使用 Delphi 10 西雅图

Answer 1

看起来 windows 发送按键 ups 以清除修饰键状态。一种解决方案是确保您在采取行动之前先做好准备。

CTRL 还用于切换桌面（除其他外），CTRL-Win+Arrow 将在切换桌面时触发对话框，因此可能需要添加更多保护代码。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
    CtrlDown : boolean;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_CONTROL) then CtrlDown := true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_CONTROL) and CtrlDown then
  begin
    ShowMessage('Ctrl Pressed');
    CtrlDown := false;
  end;
end;

end.

移动远程访问时按 Ctrl 键 window

Ctrl key presses when moving remote access window

delphi

rdp