一下代码可以得到按健的ascii号:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage(IntToStr(Ord(Key)));
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage(IntToStr(Ord(Key)));
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- SetFileTime设置文件修改时间不对?
- 再基础不过的问题,可是我不会
- ----不同的Query控件中两个参数怎么同时传递----??
- 着急,为什么我用fbarcode打印出来的条码能识别,存成图片就识别不了呢?
- webservices 中连接数据库(oracle9i)
- 我下载了一个"猛料数据库"文件,文件名是DelphiTips.nyf,请问这个类型的文件怎么打开呀!
- 有关多台客户机同时录入时,怎么解决采购入库单的编号冲突问题?如能解决,另开一贴加分!在线等待!
- bde连接数据库的问题,请看看,急!!!
- 富日笔记本电脑只要5999元,请个位谈谈,他的质量如何?
- ====把报表打印到文件======
- 我在程序中启动了另外一个进程,是用createprocess来启动的,遇到这样的一个问题,请高手帮忙解决
- 求救高手,在线守侯
Shift: TShiftState);
begin
Showmessage(Inttostr(key));
end;
很多其它书都有,复印一份放在手头是很有必要的
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Showmessage(Inttostr(key));
end;