请问各位有一种表示方法:回车是#13,上下光标键是多少?(50分)

  • 主题发起人 主题发起人 zcxrdz
  • 开始时间 开始时间
Z

zcxrdz

Unregistered / Unconfirmed
GUEST, unregistred user!
下边这段程序是在一个Form上如果按下回车键,就将回车键吃掉,而焦点转到TabOrder
指向的下一个控件。
if key=#13 then
begin
key :=#0;
perform(wm_nextdlgctl,0,0);
end;
我的问题是:回车键是#13,那么空格键、上下光标键是多少?另外它是一种什么编码?
(ASCII或是其它的)?
 
VK_SPACE 32 SPACEBAR
VK_UP 38 UP ARROW key
VK_DOWN 40 DOWN ARROW key

keyboard equivalents for the virtual-key codes
 
windows单元里有,查找VK_
 
就是xuxincheng写的那些,正确的。[:)]
 
form上放一label
在form的onkeydown里写下
label1.caption:=inttostr(key);
需要哪些键值自己试好了
 
请问如何在一个Form上的各Edit中录入数据时,按上下光标键在各Edit中移动?
请写出代码
 
设置form的keypreview属性为true
按需要的顺序重新对各个edit的taborder属性进行设置
if key=VK_DOWN then
SendMessage(Handle,Wm_NextdlgCtl,0,0);
向下移动
 
在其中一个edit的keydown事件中这样写:
if key=Vk_Down then
SelectNext(ActiveControl,true,true);
if key=Vk_Up then
selectNext(ActiveControl,false,true);
然后将每一个edit的keydown设为该edit的这个事件.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
687
import
I
后退
顶部