Delphi焦点移动

使用消息机制：

下一个焦点：

SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0);

上一个焦点：

SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0);