[原创] delphi KeyUp、KeyPress、Keydown区别和用法，如何不按键盘调用事件

KeyPress (Sender: TObject; var Key: Char);   当用户按下键盘上的字符键（字母，数字）　会触发该事件，功能键则不会（F1-F12,Ctrl,Alt,Shift）

KeyUp (Sender: TObject; var Key: Word;Shift: TShiftState);    当按下键盘上的按键松开时，会触发OnKeyUp事件(任意一个按键都会触发)

Keydown(Sender: TObject; var Key: Word;Shift: TShiftState);    按下任意一个按键都会触发该事件

KeyPress 和其他两个的区别是，Key 的取值是字符 ，其他的是数字（word  0·65535）

特别注意的是Shift:TShiftState  它的取值是：TShiftState = set of (ssShift, ssAlt, ssCtrl,ssLeft, ssRight, ssMiddle, ssDouble);  调用的例子有：

?
1
ssCtrl in Shift

或者

?
1
[ssCtrl]

Edit调用示例：

KeyPress

?
1
2
3
4
5
6
var
  key:char
begin
  key:='#13'；
  EditKeyPress(nil,key);
end；

KeyUp

?
1
2
3
4
5
6
var
  key:word
begin
  key:=13；
  EditKeyUp(nil,key,[]);
end；

这里 shift 不取值，故写法 [ ]

Keydown

?
1
2
3
4
5
6
var
  key:word
begin
  key:=13；
  EditKeydown(nil,key,[]);
end；

　　

来源：https://www.cnblogs.com/guorongtao/p/11302949.html

赞 (0)

相关推荐