Delphi焦点移动

使用消息机制:

下一个焦点:

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

上一个焦点:

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