| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/4/21 11:32:11 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我做了一个简易计算器！ 现在想连接数字键盘操作！ 怎么联？ ---------------------------------------------- 小虾米 |
|||||
| 作者： |
|
2004/4/21 13:15:23 | ||||
| 1楼： | 不明白你说的什么意思。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2004/4/21 13:56:06 | ||||
| 1楼： | 是不是我没有说清楚？？ 怎么没有人回贴啊！ 帮帮忙，我是只小菜鸟，教一下！ 怎么做才能直接使用数字键盘操作计算器？ ---------------------------------------------- 小虾米 |
|||||
| 作者： |
|
2004/4/21 13:58:33 | ||||
| 2楼： | 把按的数字健的健值与你程序界面的数字按钮关联起来应该能解决问题。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/21 13:59:41 | ||||
| 2楼： | 我用DELPHI编了一个简易的计算器，只能在界面上用鼠标点击数字和运算符操作。现在想用键盘上的数字区直接输入数字运算符进行操作。 ---------------------------------------------- 小虾米 |
|||||
| 作者： |
|
2004/4/21 14:04:46 | ||||
| 3楼： | 对不起，2楼的，再问一个笨问题，怎么关联？？？ 我不太会用DELPHI外联 ---------------------------------------------- 小虾米 |
|||||
| 作者： |
|
2004/4/21 15:51:57 | ||||
| 4楼： | procedure TForm1.FormKeyPress(Sender:TObject;var key:char); var i:integer; begin if key=#27 then Speedbutton17.Click; if key=#13 then key:='='; if key=#8 then Speedbutton19.Click; for i:=0 to form1.ControlCount-1 do begin if Controls[i] is TSpeedbutton then begin if TSpeedbutton(form1.Controls[i]).caption=key then begin TSpeedbutton(form1.Controls[i]).click; exit; end;//end if end; end;//end for end; 对不对？？？ 怎么还是没有用？ 我编错了吗？ ---------------------------------------------- 小虾米 |
|||||
| 作者： |
|
2004/4/21 18:30:43 | ||||
| 5楼： | 谁能告诉我所有键盘的代号（如回车是：＃13）！！ ---------------------------------------------- Delphi天堂（QQ群）:3701818 欢迎您的加入！ 
|
|||||
| 作者： |
|
2004/4/21 20:53:17 | ||||
| 6楼： | ASCII对照表 字符 十进制数 十六进制数 注解 字符 十进制数 十六进制数 注解 NUL 0 00 Null @ 64 40 SOH 1 01 Start of Heading A 65 41 STX 2 02 Start of Text B 66 42 ETX 3 03 End of Text C 67 43 EOT 4 04 End of Transmission D 68 44 ENQ 5 05 Enquiry E 69 45 ACK 6 06 Acknowledge F 70 46 BEL 7 07 Bell G 71 47 BS 8 08 Backspace H 72 48 SH 9 09 Horisontal Tabulation I 73 49 LF 10 0A Line Fees J 74 4A VT 11 0B Vertical Tabulation K 75 4B FF 12 0C Form Feed L 76 4C CR 13 0D Carriage Return M 77 4D SO 14 0E Shift Out N 78 4E SI 15 0F Shift In O 79 4F DEL 16 10 Data Link Escape P 80 50 DC1 17 11 Device Control 1 Q 81 51 DC2 18 12 Device Control 2 R 82 52 DC3 19 13 Device Control 3 S 83 53 DC4 20 14 Device Control 4 T 84 54 NAK 21 15 Negative Acknowledge U 85 55 SYN 22 16 synchronous Idle V 86 56 ETB 23 17 End of Transmission Block W 87 57 CAN 24 18 Cancel X 88 58 EM 25 19 End of Medium Y 89 59 SUB 26 1A Subsitute Z 90 5A ESC 27 1B Escape [ 91 5B FS 28 1C File Separator \ 92 5C GS 29 1D Group Separator ] 93 5D RS 30 1E Unit Seprator ^ 94 5E US 31 1F Space - 95 5F SP 32 20 ' 96 60 ！ 33 21 a 97 61 " 34 22 b 98 62 # 35 23 c 99 63 $ 36 24 d 100 64 % 37 25 e 101 65 & 38 26 f 102 66 ' 39 27 g 103 67 ( 40 28 h 104 68 ) 41 29 i 105 69 * 42 2A j 106 6A + 43 2B k 107 6B , 44 2C l 108 6C _ 45 2D m 109 6D . 46 2E n 110 6E / 47 2F o 111 6F 0 48 30 p 112 70 1 49 31 q 113 71 2 50 32 r 114 72 3 51 33 s 115 73 4 52 34 t 116 74 5 53 35 u 117 75 6 54 36 v 118 76 7 55 37 w 119 77 8 56 38 x 120 78 9 57 39 y 121 79 : 58 3A z 122 7A ; 59 3B { 123 7B < 60 3C | 124 7C = 61 3D } 125 7D > 62 3E ~ 126 7E ? 63 3F DEL 127 7F Delete ----------------------------------------------  
|
|||||
| 信息 |
| 登陆以后才能回复 |
