请教onkeydown函数的问题???(100分)

  • 主题发起人 主题发起人 mlin
  • 开始时间 开始时间
M

mlin

Unregistered / Unconfirmed
GUEST, unregistred user!
请问onkeydown函数的三个参数,后两个应该怎样用啊?
看了帮助后还是不太明白!
我想在按下一个键时调用onkeydown来模拟成按下另一个键,
如按下F1时就等于按下enter。
谢谢!!
 
KEY := 0; //屏蔽原来的按键(F1)
Key := 13; //按键改为回车
 
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F1 then
Key:=VK_RETURN;
end;
 
var Key: Word是键盘按键的伪码,以VK_开头,后面一般接按键名。
 
(Sender: TObject;
var Key: Word;
Shift: TShiftState);
第一个参数是所属对象的实例,第二个参数是按下的键值,以WORD形式传递,第三个参数是当前ALT,SHIFT,CTRL键按下的状态·!!
 
Key: Word
这个就是键值,请注意,它是一个var声明,这就意味着我们可以改变传入的键值,从而实现按键A却实际等同于按键B的效果。
Shift: TShiftState
这个表示按键的同时,功能键的状态,即用户是否按下了alt,shift,ctrl键。
 
人家问的是vc里面的,不是delphi的
用这个吧
keybd_event(VK_RETURN,NULL,NULL,NULL);
keybd_event(VK_RETURN,NULL,KEYEVENTF_KEYUP,NULL);
 
接受答案了.
 
后退
顶部