5,392
社区成员
发帖
与我相关
我的任务
分享用方向键控制焦点跳转问题？
我想用方向键UP从下面的编辑框向上跳转，不知有什么简单一点的解决办法，不能在每个编辑框里写事件的哦，因为有几十个呢，我知道DOWN向下跳转的方法：将所有的编辑框 的Edit1KeyPress统一为：（按TabOrder顺序跳转）
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Pchar(VK_DOWN) then
begin
key := #0;
Perform(WM_NEXTDLGCTL,0,0);
end
end;
不知有没有类似的方法实现？
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Pchar(VK_DOWN) then
begin
key := #0;
Perform(WM_NEXTDLGCTL,0,0);
end
end;
不知有没有类似的方法实现？
...全文
请发表友善的回复…
发表回复
佣工7001 2002-05-09
- 打赏
- 举报
向上是SHIFT＋TAB
mengbo 2002-05-09
- 打赏
- 举报
当然form的keypreview属性是要设为TRUE的。
mengbo 2002-05-09
- 打赏
- 举报
多谢 zswang(伴水)(* 实践是最好的老师 *)
确实可以实现了，只是 Perform(WM_NEXTDLGCTL, 0, 1);用起来要按二次才能上去，没有 Perform(WM_NEXTDLGCTL, 0, 0);那么爽！不知大家还有什么更好的方法！
确实可以实现了，只是 Perform(WM_NEXTDLGCTL, 0, 1);用起来要按二次才能上去，没有 Perform(WM_NEXTDLGCTL, 0, 0);那么爽！不知大家还有什么更好的方法！
王集鹄 2002-05-09
- 打赏
- 举报
procedure TForm1.FormKeyDown.............; //放在OnKeyDown中
begin
case Key of
VK_UP: Perform(WM_NEXTDLGCTL, 0, 0);
VK_DOWN: Perform(WM_NEXTDLGCTL, 0, 1);
end
end;
begin
case Key of
VK_UP: Perform(WM_NEXTDLGCTL, 0, 0);
VK_DOWN: Perform(WM_NEXTDLGCTL, 0, 1);
end
end;
mengbo 2002-05-09
- 打赏
- 举报
多谢，但我现在是想用一个UP键就代替它啊！
