复制粘贴 Delphi for Android

Question

我有以下场景：Delphi XE7 和 Android 模拟器环境 (Andy)。我使用以下命令在Windows环境下粘贴文本才能正常运行：

procedure TForm1.Button1Click(Sender: TObject);
begin
    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
    keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
    keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
end;

formstyle 选项表单设置为 fsStayOnTop。
现在运行 Android 模拟器，我需要粘贴文本，例如，在模拟器的 Google 搜索栏中，粘贴命令不起作用。

我注意到，如果我按住鼠标右键 2 秒钟，会出现粘贴选项（Android 环境），单击它可以粘贴，但我需要它是自动的。有什么建议吗？

Answer 1

键盘输入由前台窗口处理。您将击键注入到键盘本身将用户输入发布到的同一低级输入队列中（顺便说一句，您应该使用SendInput() 而不是keybd_event()）。您的模拟击键经历了与用户输入的击键相同的处理和路由。 Raymond Chen 在他的网站上有一个很好的描述：

When something gets added to a queue, it takes time for it to come out the front of the queue

当您单击按钮时，您的应用窗口位于前台。因此，您的 Ctrl-V 序列会被您的应用程序接收，而不是被 Andy 模拟器接收。如果您使用TWinControl-派生按钮，如TButton，则单击时会获得输入焦点（为避免这种情况，请改用TGraphicControl-派生按钮，如TSpeedButton）。由于编辑控件没有获得焦点，因此 Ctrl-V 似乎什么都不做，因为在处理按键时没有可粘贴的内容。

您需要使用SetForegroundWindow()（也可能还有SetFocus()）将Andy 的窗口带回前台并在之前给它输入焦点，然后发送您的击键。

即便如此，也不能 100% 保证其他一些应用不会在您发出击键和它们从输入队列中出来之间窃取焦点。