1,184
社区成员
发帖
与我相关
我的任务
分享如何捕获小键盘数字键的输入，在线等待！！
我想根据小建盘输入的数字键，如100，200，然后按enter键结束输入，这样记录就移动到相应的第100条，200条上。
...全文
请发表友善的回复…
发表回复
zousoft 2003-09-12
- 打赏
- 举报
有个问题，你是怎么区别123456是123，456而不是12，3456？
jackzhao 2003-09-12
- 打赏
- 举报
up
ekin 2003-09-12
- 打赏
- 举报
HOOK比较方便
jerehsofter 2003-09-12
- 打赏
- 举报
HOOK比较方便
http://www.cx66.com/cxgzs/program/delphi/102.htm
http://www.cx66.com/cxgzs/program/delphi/102.htm
jackzhao 2003-09-12
- 打赏
- 举报
用消息捕获wm_keydown还是键盘钩子哪一种方便
上海老李 2003-09-11
- 打赏
- 举报
那你要搞个记录键的，唉，自己想想办法
lxpbuaa 2003-09-11
- 打赏
- 举报
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
S: String;
begin
if Key = 13 then
begin
S := TEdit(Sender).Text;
if (S = '100') or (S = '200') then
ShowMessage('移动');
end;
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
Shift: TShiftState);
var
S: String;
begin
if Key = 13 then
begin
S := TEdit(Sender).Text;
if (S = '100') or (S = '200') then
ShowMessage('移动');
end;
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
