Question

delphi 中edit组件的keypress事件怎么用

Answer 1

在窗体上放上Edit
然后在KeyPress事件中写入下边的代码
XE下:
if not CharInSet(Key,['0'..'9',#8]) then Key :=#0;
D7下:
if not (Key in ['0'..'9',#8]) then key :=#0;

只能输入0-9输入和使用BackSpace键

追问

这位高手能不能解释一下，我是新手小菜，嘿嘿……
你写的：‘XE’和‘D7’啥意思啊，怎么直接把代码粘进去没有反应啊？？

追答

XE是Delphi 最新版本
而D7则是Delphi 7

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShowMessage('aa');
end;
当按回车提示 aa 也可以把#13 换成其他字符 'a' 什么的。注意和KeyDown事件的key参数类型区别。呵呵。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F3 then
showmessage('F3');
end;
加油，一起努力。