4

Im building a form that will function like a keypad on a touch screen. The problem Im having at the moment is that when I person presses a button for example the '1' button, it must add that char '1' to an edit box, which displays the keys already pressed. Now the problem Im experiencing is that once a person presses a key, I can add the char to the string already displayed in the edit box, but the cursor goes to the front of the edit box, and does not appear at the back. I use the following code to add a char to the edit box:

edtPassword.text := edtPassword.text + key;

Now that just adds the char to the end of the edit box, but how do I move the cursor to the end of the edit box.

Plus I do also have a backspace button, what code would I use the erase the last char of the string in the edit box if you clicked it?

Im using Delphi XE2

TLama
  • 75,147
  • 17
  • 214
  • 392
Japster
  • 985
  • 6
  • 19
  • 38
  • 2
    How about simply using the `keybd_event`/`SendInput` APIs, instead of trying yo manipulate the editbox yourself? – kobik Sep 24 '12 at 09:48
  • 1
    @kobik, the best is to use [`SendInput`](http://msdn.microsoft.com/en-us/library/windows/desktop/ms646310(v=vs.85).aspx). The [`keybd_event`](http://msdn.microsoft.com/en-us/library/windows/desktop/ms646304(v=vs.85).aspx) has been superseded by `SendInput`. – TLama Sep 24 '12 at 09:54
  • @TLama, I don't have sources of TTouchKeyboard. does it uses SendInput? – ZigiZ Sep 24 '12 at 09:55
  • 1
    @ZigiZ, paradoxically not. It uses [`keybd_event`](http://msdn.microsoft.com/en-us/library/windows/desktop/ms646304(v=vs.85).aspx). – TLama Sep 24 '12 at 09:57
  • @TLama why not post your comment as answer? if OP has XE2, surely the `TTouchKeyboard` is the preferred solution here (since it's using `keybd_event` anyway). – kobik Sep 24 '12 at 10:09

2 Answers2

6

Disclaimer:

I'm not answering the question as it is. I'm trying to propose a way I'll rather follow when I'd need a virtual keyboard.

1. What about ready made component ?

I would suggest you to use the TTouchKeyboard component, which is a VCL component, representing a virtual keyboard. That said, you're developing something, what is already a part of Delphi distributions. It's a part of Delphi since version 2010, but I can't say in which distributions.

2. It looks ugly and I'll rather make my own:

When I've seen TTouchKeyboard component for the first time, I was hoping that allows owner drawing. Well, unfortunately doesn't. In that case I'd try to simulate key strokes by myself rather than solve cases like this for another components you may soon or later use.

2.1. How to simulate keystrokes in your own way ?

The following code simulates keystrokes by using the SendInput function and it's based on the code used by TTouchKeyboard component:

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;

And the usage of the above function. You can pass virtual key, scan code or both to this function. When you'll be unsure with either of them, pass value of -1 and the key code will be additionally mapped by the MapVirtualKey function. The following example shows how to send a Backspace and then Shift + A:

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

2.2. How to simulate keystrokes in a forbidden way ?

You may also go against the reference and use the SendKey from Vcl.Touch.Keyboard unit. In the reference is stated that the SendKey is used internally and shouldn't be called but it's visible outside of the unit and if you're bold enough you can use it like this:

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, -1);
  SendKey(KeyData, ksDown);
  KeyData := VKey(Ord('A'), -1);
  SendKey(KeyData, ksDown);
  SendKey(KeyData, ksUp);
  KeyData := VKey(VK_SHIFT, -1);
  SendKey(KeyData, ksUp);
end;

2.3. How to simulate keystrokes in a different view ?

Community
  • 1
  • 1
TLama
  • 75,147
  • 17
  • 214
  • 392
  • 1
    Just one off topic. In Delphi, the `SendInput` function prototype is not correctly defined. It should be `function SendInput(cInputs: UINT; pInputs: PInput; cbSize: Integer): UINT;`. The current definition disallows you to use `array of TInput` as was originally intended. – TLama Sep 24 '12 at 13:39
  • 1
    No, not this time, I'll keep it here. It took me about hour to compose it :-) – TLama Sep 24 '12 at 16:00
3

You may try:

edtPassword.Text := edtPassword.Text + key;
edtPassword.SelStart := Length(edtPassword.Text);
edtPassword.SelLenght := 0;

Also you could post messages to the edit window handle, like this:

PostMessage(edtPassword.Handle, WM_KEYDOWN, VK_END, 0);
PostMessage(edtPassword.Handle, WM_KEYUP, VK_END, 0);
PostMessage(edtPassword.Handle, WM_CHAR, StrToInt(key), 0);

As for backspace, since your cursor is virtual, you could simulate deletion just by removing last symbol in the text.

If your keypad is planned to include arrow keys some time, you will need to calculate current position of the cursor and remove symbol not at the end of text, but in arbitrary position corresponding to the cursor value (offset).

Stan
  • 8,683
  • 9
  • 58
  • 102