Tab键转化为enter浆

Question

在delphi 程序里光标到下一个是按TAB,我想问一下怎么把TAB转化为按ENTER ,因为很多用户觉得按TAB不方便

Answer 1

在按键盘事件中,把TAB的键变成#13就OK了.

Answer 2

if Key = VK_UP then
   begin
   SelectNext(ActiveControl, False, True);
    Key := 0;
   end;
if (Key=Vk_down) or (Key=VK_RETURN)  then
   begin
     SelectNext(ActiveControl, TRue,True);
     Key := 0;
   end;

Answer 3

1.Form.keyPress:=True;
2.Form.OnKeyDown事件中
  if key=vk_return then
  begin
    key:=Ord(#0);
    Perform(wm_nextDlgctl,0,0);
  end;

Answer 4

case key of
      13, 40: begin
          perform(wm_nextdlgctl, 0, 0);
        end;
      38: begin
          perform(wm_nextdlgctl, 1, 0);
        end;
    end;
这个也可以实现,谢谢大家,结题了