#232 remove hack and avoid ProcessMessages

bckeyboard.pas

@@ -171,31 +171,16 @@ begin
   end
   else if str = F_back.Caption then
   begin
-    {$IFDEF CPUX86_64}
-    Application.ProcessMessages;
-    KeyInput.Press(VK_BACK);
-    Application.ProcessMessages;
+    {$IFDEF FPC}
+    Application.QueueAsyncCall(PressVirtKey, VK_BACK);
     {$ELSE}
-      {$IFDEF FPC}
-      Application.QueueAsyncCall(PressVirtKey, VK_BACK);
-      {$ELSE}
-      SendKey(VK_BACK);
-      {$ENDIF}
+    SendKey(VK_BACK);
     {$ENDIF}
   end
   else
   begin
     if str = F_space.Caption then
       str := ' ';
-    {$IFDEF CPUX86_64}
-    Application.ProcessMessages;
-    if F_shift.Down then
-      KeyInput.Down(VK_SHIFT);
-    KeyInput.Press(Ord(UpperCase(str)[1]));
-    if F_shift.Down then
-      KeyInput.Up(VK_SHIFT);
-    Application.ProcessMessages;
-    {$ELSE}
     if F_shift.Down then
       {$IFDEF FPC}
       Application.QueueAsyncCall(PressShiftVirtKey, Ord(UpperCase(str)[1]))

bcnumerickeyboard.pas

@@ -121,44 +121,26 @@ begin
 
   if num = FBtnClr.Caption then
   begin
-    {$IFDEF CPUX86_64}
-    Application.ProcessMessages;
-    KeyInput.Press(VK_BACK);
-    Application.ProcessMessages;
+    {$IFDEF FPC}
+    Application.QueueAsyncCall(PressVirtKey, VK_BACK);
     {$ELSE}
-      {$IFDEF FPC}
-      Application.QueueAsyncCall(PressVirtKey, VK_BACK);
-      {$ELSE}
-      SendKey(VK_BACK);
-      {$ENDIF}
+    SendKey(VK_BACK);
     {$ENDIF}
   end
   else if num = FBtnDot.Caption then
   begin
-    {$IFDEF CPUX86_64}
-    Application.ProcessMessages;
-    KeyInput.Press(vk_DotNumPad);
-    Application.ProcessMessages;
+    {$IFDEF FPC}
+    Application.QueueAsyncCall(PressVirtKey, vk_DotNumPad);
     {$ELSE}
-      {$IFDEF FPC}
-      Application.QueueAsyncCall(PressVirtKey, vk_DotNumPad);
-      {$ELSE}
-      SendKey(vk_DotNumPad);
-      {$ENDIF}
+    SendKey(vk_DotNumPad);
     {$ENDIF}
   end
   else
   begin
-    {$IFDEF CPUX86_64}
-    Application.ProcessMessages;
-    KeyInput.Press(Ord(TBCButton(Sender).Caption[1]));
-    Application.ProcessMessages;
+    {$IFDEF FPC}
+    Application.QueueAsyncCall(PressVirtKey, Ord(TBCButton(Sender).Caption[1]));
     {$ELSE}
-      {$IFDEF FPC}
-      Application.QueueAsyncCall(PressVirtKey, Ord(TBCButton(Sender).Caption[1]));
-      {$ELSE}
-      SendKey(Ord(TBCButton(Sender).Caption[1]));
-      {$ENDIF}
+    SendKey(Ord(TBCButton(Sender).Caption[1]));
     {$ENDIF}
   end;