delphi – 当使用键盘通过按钮单击添加字符时,如何让光标移到字

我没有回答这个问题.当我需要一个虚拟键盘时,我正试图提出一种我宁愿遵循的方法.

1.现成的组件怎么样？

我建议你使用TTouchKeyboard组件,它是一个VCL组件,代表一个虚拟键盘.也就是说,你正在开发一些东西,这已经成为Delphi发行版的一部分.自2010年以来它是Delphi的一部分,但我不能说在哪个发行版中.

它看起来很难看,我宁愿做自己的：

当我第一次看到TTouchKeyboard组件时,我希望允许所有者绘图.嗯,不幸的是没有.在这种情况下,我会尝试自己模拟击键,而不是为你可能很快或稍后使用的其他组件解决这样的情况.

2.1.如何以自己的方式模拟击键？

以下代码使用SendInput函数模拟击键,它基于TTouchKeyboard组件使用的代码：

type
  TKeyState = (ksDown,ksUp);

function SendInputKey(AVirtualKey: Integer; AScanCode: Integer;
  AKeyState: TKeyState): Boolean;
var
  Input: TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  if (AVirtualKey = -1) and (AScanCode >= 0) then
  begin
    Input.ki.wVk := MapVirtualKey(AScanCode,MAPVK_VSC_TO_VK);
    Input.ki.wScan := AScanCode;
  end
  else if (AVirtualKey >= 0) and (AScanCode = -1) then
  begin
    Input.ki.wVk := AVirtualKey;
    Input.ki.wScan := MapVirtualKey(AVirtualKey,MAPVK_VK_TO_VSC);
  end
  else if (AVirtualKey >= 0) and (AScanCode >= 0) then
  begin
    Input.ki.wVk := AVirtualKey;
    Input.ki.wScan := AScanCode;
  end;
  case AKeyState of
    ksDown: Input.ki.dwFlags := 0;
    ksUp: Input.ki.dwFlags := KEYEVENTF_KEYUP;
  end;
  Result := SendInput(1,Input,SizeOf(TInput)) = 1;
end;

以及上述功能的用法.您可以将虚拟密钥,扫描代码或两者传递给此功能.如果您不确定其中任何一个,则传递值-1,并且密钥代码将由MapVirtualKey函数另外映射.以下示例显示如何发送Backspace然后转换A：

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  SendInputKey(VK_BACK,-1,ksDown);
  SendInputKey(VK_BACK,ksUp);
  SendInputKey(VK_SHIFT,ksDown);
  SendInputKey(Ord('A'),ksUp);
end;

2.2.如何以禁止的方式模拟击键？

您也可能违反参考,并使用Vcl.Touch.Keyboard SendKey.在参考文献中声明SendKey在内部使用,不应该被调用,但它在单元外部可见,如果你足够大胆,你可以像这样使用它：

uses
  Vcl.Touch.Keyboard,Vcl.Touch.KeyboardTypes;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  KeyData: TKeyData;
begin
  KeyData := VKey(VK_BACK,-1);
  SendKey(KeyData,ksDown);
  SendKey(KeyData,ksUp);
  KeyData := VKey(VK_SHIFT,ksDown);
  KeyData := VKey(Ord('A'),ksUp);
end;

2.3.如何在不同的视图中模拟击键？

> How to send text to another application ?
> How to send keys to another application ?
> How to send keys without using SendMessage and PostMessage ?
> How to programmatically simulate user input ?