TTouchKeyboard im Kampf mit echten Tastaturen

[Uwe Raabe]

Du könntest auch eine Ableitung (Interposer-Class) von TTouchKeyboard verwenden, das z.B. einen Message-Handler für WM_KEYDOWN, WM_KEYUP implementiert und auf VK_CAPITAL reagiert.

(nicht ausprobiert!)

Delphi-Quellcode:

type
  TTouchKeyboard = class(Vcl.Touch.Keyboard.TTouchKeyboard)
  protected
    procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP;
  end;

procedure TTouchKeyboard.WMKeyUp(var Message: TWMKeyUp);
begin
  inherited;
  if Message.CharCode = VK_CAPITAL then begin
    SendMessage(Handle, WM_INPUTLANGCHANGE, 0, 0);
  end;
end;