请教在delphi6中,按回车之后,光标往下跳的代码.

Question

请教在delphi6中,按回车之后,光标往跳向下一个也可以选择跳或不跳的代码写法.

Answer 1

设置Form的KeyPreview属性为True，并将Form的OnKeyPress定义如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //其中bEnterToTab为选择回车跳一个还是不跳的开关
  if (key = #13) and bEnterToTab then
  begin
    key := #0;
    perform(cm_dialogkey, vk_tab, 0)
  end;
end;

Answer 2

procedure TRkFrm.edt_kfKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
 begin
  key := #0;
  Perform(WM_NEXTDLGCTL, 0, 0);  
 end;
end;请后面的人说明我得和老大的有什么区别？

Answer 3

将主窗体的keypreview置为true
设置好各控件的TAB键次序procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Keybd_event(VK_TAB, 0, 0, 0);
  end;
end;