使用消息机制：
下一个焦点：
SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0);
上一个焦点：
SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0);
Delphi焦点移动
好的代码像粥一样，都是用时间熬出来的
使用消息机制：
下一个焦点：
SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0);
上一个焦点：
SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0);