5,388
社区成员
发帖
与我相关
我的任务
分享在线等候，问题解决就结贴
如何获得当前按键值，如我要输入个大括号“{”
当我在一个按MEMO框中输入大括号时，要程序立即要弹出个消息框，“这是一个{”
当我在一个按MEMO框中输入大括号时，要程序立即要弹出个消息框，“这是一个{”
...全文
请发表友善的回复…
发表回复
liushiboy 2003-12-11
- 打赏
- 举报
也可以用ONKEYPRESS的事件
KEY参数是个引用.
KEY参数是个引用.
aiwei28 2003-12-11
- 打赏
- 举报
谢谢各位，问题已解决
zzh26 2003-12-11
- 打赏
- 举报
不然写个小程序你就能知道所有键值
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage(inttostr(key));
end;
然后再memo的onkeydown实践中判断key=键值
就能知道按下了什么键
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage(inttostr(key));
end;
然后再memo的onkeydown实践中判断key=键值
就能知道按下了什么键
hongqi162 2003-12-11
- 打赏
- 举报
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key in [219]) then
ShowMessage('这是一个{');
end;
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key in [219]) then
ShowMessage('这是一个{');
end;
hch_45 2003-12-11
- 打赏
- 举报
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage('This is char ' + Chr(Key)) + ', ACSII code is ' + IntToStr(Key);
end;
Shift: TShiftState);
begin
ShowMessage('This is char ' + Chr(Key)) + ', ACSII code is ' + IntToStr(Key);
end;
