传递焦点API实现

procedure TUserLoginForm.NextControl(Key: Char);
begin
   if Key = #13 then
   begin
       SendMessage(self.Handle,WM_NEXTDLGCTL,0,0); //下一个焦点
   end;
end;