要在 Delphi 中实现按回车后控件焦点的转移，可以调用 Windows API 消息发送函数 PostMessage，做法如下：
     把 Form1 的 KeyPreview 属性设为 True，在 Edit 和 Memo 的 OnKeyPress 事件中加入以下代码：
      if Key=#13 then
       if not (ActiveControl is TMemo) then
         PostMessage(Handle,WM_KERYDOWN,VK_TAB,0);