test(50分)

  • 主题发起人 主题发起人 pdb
  • 开始时间 开始时间
P

pdb

Unregistered / Unconfirmed
GUEST, unregistred user!
很簡單的問題,我在delphi的界面中要實現用鍵盤的上下左右箭頭移動控件的焦點
請指教
 
在FORM的onkeypress事件上写代码
if key=vk_down then
edit1.setfoucs;
下键是VK_down 上是vk_up 左是vk_left 右是vk_right
 
处理CM_WANTSPECIALKEY消息
 
用onkeydown事件上写代码
 
各位:
我不想在每個控件里面寫代碼 ,用回車移動焦點我已經在窗體的onkeydow里面實現
了,先設窗體的keypreview設為true ,然後在窗體的onkeydowm這樣寫
if key = 13 then
postmessage(self.handle,wm_keydown,vk_tab,0);
,但是我就是不知道上下箭頭是怎樣的?請各位把這個api函數告訴我,勞煩了
 
好象是非曲直37、38、39、40
把你的代码key=13替换就是了
 
sonie:
向下可以啊,但是向上不行啊, 我也要用向上箭頭回傳上一個控件的焦點啊
 
大家幫幫忙吧,
 
在onkeypress中写
if key=VK_Down then
begin
key:=#0;
selectnext( activecontrol, True, True);
end;
if key=VK_Up then
begin
key:=#0;
selectnext( activecontrol, False, True);
end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=647642
 
搞定了,感謝liujh,多謝大家
 
多人接受答案了。
 
后退
顶部