jquery监听pda 按键_delphi XE模拟Android手机PDA设备的虚拟键盘按键及扫码过程输入焦点及信号接收...-CSDN博客

本文链接：https://blog.csdn.net/weixin_39803207/article/details/111551196

delphi XE模拟Android手机PDA设备的虚拟键盘按键及扫码过程输入焦点及信号接收

今天，群里有几位同学讨论这个问题，汇总了一下，分享出来，供同学们学习研究。

一、直接上代码示例

1、屏蔽应用Terminated ；如果按了虚拟键:返回键；如果按了物理菜单键

procedure TfmxTestGYListview1.FormKeyUp(

Sender: TObject; var Key: Word;

var KeyChar: Char; Shift: TShiftState);

var

CanUse: Boolean;

begin

if Key = vkHardwareBackthen // 如果按了虚拟键:返回键

begin

Key := 0; //：屏蔽应用Terminated

// CanUse := true; Key := GoBack(CanUse); // 调用返回功能，包括退出功能

Image_0201Click(Sender);

end;

if Key = vkMenuthen // 如果按了物理菜单键

begin

if PopupMenu.Visible = true then

HidePopupMenu

else

Image_0202Click(Sender); // 显示快捷菜单

Key := 0; //：屏蔽应用Terminated

exit;

end;

2、控制TEdit和TMemo的虚拟键盘

二、取数原理

System.UITypes.pas 第197行-384行

const

{ Virtual Keys, Standard Set }

vkLButton = $01; { 1 }

vkRButton = $02; { 2 }

vkCancel = $03; { 3 }

vkMButton = $04; { 4 }

vkXButton1 = $05; { 5 }

vkXButton2 = $06; { 6 }

vkBack = $08; { 8 }

vkTab = $09; { 9 }

vkLineFeed = $0A; { 10 }

vkClear = $0C; { 12 }

vkReturn = $0D; { 13 }

vkShift = $10; { 16 }

vkControl = $11; { 17 }

vkMenu = $12; { 18 }

vkPause = $13; { 19 }

vkCapital = $14; { 20 }

vkKana = $15; { 21 }

vkHangul = $15; { 21 }

vkJunja = $17; { 23 }

vkFinal = $18; { 24 }

vkHanja = $19; { 25 }

vkKanji = $19; { 25 }

vkConvert = $1C; { 28 }

vkNonConvert = $1D; { 29 }

vkAccept = $1E; { 30 }

vkModeChange = $1F; { 31 }

vkEscape = $1B; { 27 }

vkSpace = $20; { 32 }

vkPrior = $21; { 33 }

vkNext = $22; { 34 }

vkEnd = $23; { 35 }

vkHome = $24; { 36 }

vkLeft = $25; { 37 }

vkUp = $26; { 38 }

vkRight = $27; { 39 }

vkDown = $28; { 40 }

vkSelect = $29; { 41 }

vkPrint = $2A; { 42 }

vkExecute = $2B; { 43 }

vkSnapshot = $2C; { 44 }

vkInsert = $2D; { 45 }

vkDelete = $2E; { 46 }

vkHelp = $2F; { 47 }

{ vk0 thru vk9 are the same as ASCII '0' thru '9' ($30 - $39) }

vk0 = $30; { 48 }

vk1 = $31; { 49 }

vk2 = $32; { 50 }

vk3 = $33; { 51 }

vk4 = $34; { 52 }

vk5 = $35; { 53 }

vk6 = $36; { 54 }

vk7 = $37; { 55 }

vk8 = $38; { 56 }

vk9 = $39; { 57 }

{ vkA thru vkZ are the same as ASCII 'A' thru 'Z' ($41 - $5A) }

vkA = $41; { 65 }

vkB = $42; { 66 }

vkC = $43; { 67 }

vkD = $44; { 68 }

vkE = $45; { 69 }

vkF = $46; { 70 }

vkG = $47; { 71 }

vkH = $48; { 72 }

vkI = $49; { 73 }

vkJ = $4A; { 74 }

vkK = $4B; { 75 }

vkL = $4C; { 76 }

vkM = $4D; { 77 }

vkN = $4E; { 78 }

vkO = $4F; { 79 }

vkP = $50; { 80 }

vkQ = $51; { 81 }

vkR = $52; { 82 }

vkS = $53; { 83 }

vkT = $54; { 84 }

vkU = $55; { 85 }

vkV = $56; { 86 }

vkW = $57; { 87 }

vkX = $58; { 88 }

vkY = $59; { 89 }

vkZ = $5A; { 90 }

vkLWin = $5B; { 91 }

vkRWin = $5C; { 92 }

vkApps = $5D; { 93 }

vkSleep = $5F; { 95 }

vkNumpad0 = $60; { 96 }

vkNumpad1 = $61; { 97 }

vkNumpad2 = $62; { 98 }

vkNumpad3 = $63; { 99 }

vkNumpad4 = $64; { 100 }

vkNumpad5 = $65; { 101 }

vkNumpad6 = $66; { 102 }

vkNumpad7 = $67; { 103 }

vkNumpad8 = $68; { 104 }

vkNumpad9 = $69; { 105 }

vkMultiply = $6A; { 106 }

vkAdd = $6B; { 107 }

vkSeparator = $6C; { 108 }

vkSubtract = $6D; { 109 }

vkDecimal = $6E; { 110 }

vkDivide = $6F; { 111 }

vkF1 = $70; { 112 }

vkF2 = $71; { 113 }

vkF3 = $72; { 114 }

vkF4 = $73; { 115 }

vkF5 = $74; { 116 }

vkF6 = $75; { 117 }

vkF7 = $76; { 118 }

vkF8 = $77; { 119 }

vkF9 = $78; { 120 }

vkF10 = $79; { 121 }

vkF11 = $7A; { 122 }

vkF12 = $7B; { 123 }

vkF13 = $7C; { 124 }

vkF14 = $7D; { 125 }

vkF15 = $7E; { 126 }

vkF16 = $7F; { 127 }

vkF17 = $80; { 128 }

vkF18 = $81; { 129 }

vkF19 = $82; { 130 }

vkF20 = $83; { 131 }

vkF21 = $84; { 132 }

vkF22 = $85; { 133 }

vkF23 = $86; { 134 }

vkF24 = $87; { 135 }

vkCamera = $88; { 136 }

vkHardwareBack = $89; { 137 }

vkNumLock = $90; { 144 }

vkScroll = $91; { 145 }

vkLShift = $A0; { 160 }

vkRShift = $A1; { 161 }

vkLControl = $A2; { 162 }

vkRControl = $A3; { 163 }

vkLMenu = $A4; { 164 }

vkRMenu = $A5; { 165 }

vkBrowserBack = $A6; { 166 }

vkBrowserForward = $A7; { 167 }

vkBrowserRefresh = $A8; { 168 }

vkBrowserStop = $A9; { 169 }

vkBrowserSearch = $AA; { 170 }

vkBrowserFavorites = $AB; { 171 }

vkBrowserHome = $AC; { 172 }

vkVolumeMute = $AD; { 173 }

vkVolumeDown = $AE; { 174 }

vkVolumeUp = $AF; { 175 }

vkMediaNextTrack = $B0; { 176 }

vkMediaPrevTrack = $B1; { 177 }

vkMediaStop = $B2; { 178 }

vkMediaPlayPause = $B3; { 179 }

vkLaunchMail = $B4; { 180 }

vkLaunchMediaSelect= $B5; { 181 }

vkLaunchApp1 = $B6; { 182 }

vkLaunchApp2 = $B7; { 183 }

vkSemicolon = $BA; { 186 }

vkEqual = $BB; { 187 }

vkComma = $BC; { 188 }

vkMinus = $BD; { 189 }

vkPeriod = $BE; { 190 }

vkSlash = $BF; { 191 }

vkTilde = $C0; { 192 }

vkLeftBracket = $DB; { 219 }

vkBackslash = $DC; { 220 }

vkRightBracket = $DD; { 221 }

vkQuote = $DE; { 222 }

vkPara = $DF; { 223 }

vkOem102 = $E2; { 226 }

vkIcoHelp = $E3; { 227 }

vkIco00 = $E4; { 228 }

vkProcessKey = $E5; { 229 }

vkIcoClear = $E6; { 230 }

vkPacket = $E7; { 231 }

vkAttn = $F6; { 246 }

vkCrsel = $F7; { 247 }

vkExsel = $F8; { 248 }

vkErEof = $F9; { 249 }

vkPlay = $FA; { 250 }

vkZoom = $FB; { 251 }

vkNoname = $FC; { 252 }

vkPA1 = $FD; { 253 }

vkOemClear = $FE; { 254 }

vkNone = $FF; { 255 }

三、TEdit、TMemo等输入组件的焦点与虚拟键盘隐藏

1、

procedure TFormlogin_allinone_beijing.Image_0201Click(Sender: TObject);

begin

if Assigned(self.Focused) then // 如果你的该页面有编辑控件，一定要加上这个，按返回键可以去掉键盘框

begin

if ((self.Focused.GetObject is TEdit) or (self.Focused.GetObject is TMemo)) then

begin

self.Focused := nil; // 退出键盘显示

exit;

end;

2、

procedure TForm_ship.EditShowEnter(Sender: TObject);

begin

VKAutoShowMode := TVKAutoShowMode.Always; // 此窗口弹出输入法

//VKAutoShowMode := TVKAutoShowMode.Never; // 此窗口不弹出输入法

end;

unit FMX.VirtualKeyboard.Android;

function TVirtualKeyboardAndroid.IsAutoShow: Boolean;

begin

Result := VKAutoShowMode in [TVKAutoShowMode.Always, TVKAutoShowMode.DefinedBySystem];

end;

unit FMX.Types;

TVKAutoShowModeHelper = record helper for TVKAutoShowMode

const

vkasDefinedBySystem = TVKAutoShowMode.DefinedBySystem deprecated 'Use TVKAutoShowMode.DefinedBySystem';

vkasNever = TVKAutoShowMode.Never deprecated 'Use TVKAutoShowMode.Never';

vkasAlways = TVKAutoShowMode.Always deprecated 'Use TVKAutoShowMode.Always';

end;

3、应用案例： PDA扫码

PDA接收扫码结果有两种方式，(1、焦点录入，就是要先点击一下输入框，让输入框处于焦点等待输入模式，扫码时就等同于键入录入后按回车键：：：：我的意见，这种模式下，不要去获取焦点、焦点等待、模拟回车键，直接：扫码完成后(要用到线程来负责扫码，扫码成功后直接同步UI赋值给TEdit)立即赋值给TEdit，TEdit(最好换位TText或TLabel等非输入组件)组件接收赋值的OnChange事件，翻译并显示出条码等后续处理。

(2、广播模式，不需要点击输入框，无焦点状态下由APP负责侦听扫描结果并处理。相当于 Android下的一个 TNotification服务。

其实呢，无论焦点模式也好、广播推送通知模式也好，其背后的本质还是线程及线程的同步问题，如果熟悉线程及线程的同步问题，事件及其事件通知，就变得简单啦。扫码及其通知的过程：进入匿名线程，扫码开始，扫码成功后：线程同步UI通知接收组件的OnChange事件显示条码，条码显示的接收组件OnChange等等事件被触发有怎样怎样.......

四、关联

1、 delphi系统键盘输入捕获或手势捕获 https://blog.csdn.net/pulledup/article/details/104374215

喜欢的话，就在下面点个赞、收藏就好了，方便看下次的分享：