请问如何实现用回车健互相跳转edit1？

Question

procedure TForm_dxslhk.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    IF key=#13 THEN
    BEGIN
//do what you want!
  Edit2.SetFocus;   
 END;
end;

Answer 1

Perform(WM_NEXTDLGCTL, 0, 0);

Answer 2

在tedit1.onkeydown事件中写
if key:=Key_Enter then
edit2.setfause在tedit2.onkeydown事件中写
if key:=Key_Enter then
edit1.setfause

Answer 3

Perform(WM_NEXTDLGCTL, 0, 0);比较好
我用的就是这个方法

Answer 4

还可以这样PostMessage(TEdit(Sender).Handle, WM_KEYDOWN, VK_TAB, 0);