简单问题，马上给分

Question

用回车键代替Tab键，Left键可以让光标回退，正好和Tab键功能相反，怎么做？？

Answer 1

Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
　if key=#13 then 　
　Begin 　
　key:=#0;
   做工作
  光标下移
 end;
end;第二个问题 也差不多 判断简直就是了

Answer 2

在KeyPress事件中添加如下代码 
if Key = #13 then
      PostMessage(GetActiveWindow,WM_KEYDOWN,VK_TAB,0);

Answer 3

Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
　if key=#13 then 
   Begin 　
　key:=#0;
  做工作使光标下移
 end;
end;第二个问题差不多 也是判断键值

Answer 4

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN: Perform(WM_NEXTDLGCTL, Ord(ssShift in Shift), 0);
    VK_LEFT: Perform(WM_NEXTDLGCTL, Ord(True), 0); //Left是光标前移，用在这里有些别扭～～
  end;
end;

Answer 5

FORM1上放了10个EDIT框,用TAB键可以由上一个EDIT框转到下一个,如果我想用
回车键来代替TAB键实现这个功能,点做?procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If key = #13  then
    begin
      keybd_event(VK_TAB,0,0,0);
      keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
      Key:=#0; //加这行可去悼“当”声音
    end
end;

Answer 6

不要忘记把Form的KeyPreview属性设置为True;

Answer 7

应用qt单元，
if key=vk_return then
begin
  perform(wm_nextdlgctl,0,0);//回车代替tab
  exit;
end;if key=vk_up then
begin
  perform(wm_nextdlgctl,1,0);//上箭头回退
end;看看qt单元的说明，里面都有。
=====================================================
嘿嘿，今天晚上有空吗？
我们出去浪漫一下？

Answer 8

应用qt单元，
if key=vk_return then
begin
  perform(wm_nextdlgctl,0,0);//回车代替tab
  exit;
end;if key=vk_up then
begin
  perform(wm_nextdlgctl,1,0);//上箭头回退
end;

Answer 9

对不起各位老兄，小弟好久没来了，忘了这码子事了！I am very sorry！！！