移动焦点问题

Question

有五个edit 我想有回车来移动焦点到下一个edit，该怎样做。我能用tab 通过taborder的设置来移动焦点，而用if key =#13 then edit1.sefocus;就不知道怎么用了。请高手指点。

Answer 1

在每个edit的enter后加入
    下一个edit。setforce。就可以了。

Answer 2

if key = #13 then Perform(WM_NEXTDLGCTL, 0, 0);注意将窗体的keypreview设成true

Answer 3

将属性KeyPreview设为True,然后设定
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key=VK_RETURN then
   Perform(WM_NEXTDLGCTL,0,0);
end;
 

Answer 4

procedure TFrmEmployee.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key = #13 then
    begin
        if not (ActiveControl is TDBGrid) then
        begin
            Key := #0;
            Perform(WM_NEXTDLGCTL,0,0);
        end;
    end;
end;//记得引用DBGrids单元