回车代替tab的小问题！

Question

晕倒，这样也会出问题？procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //转移到下一个输入框
  if Key = #13 then edit2.SetFocus;
end;错误提示：不能focus一个不可见或不能用的window。但是用tab按键却可以正常转移。请教！

Answer 1

selectnext(activecontrol,true,true)

Answer 2

在控件的keypress事件中加入
if key=#13 then
        postmessage(self.handle,wm_keydown,vk_tab,0);

Answer 3

if Key = #13 then
      begin
        Key := #0;
        Perform (CM_DialogKey, VK_TAB, 0);
      end;都可以得