在delphi中将datetimepicker的焦点自动定位到日期上

    用了一个比较蠢的办法，先把焦点定位到datetimepicker上，默认的是年份，然后模拟键盘的VK_RIGHT按下，将光标移动到指定地点。

    DateTimePicker1.SetFocus;

    SendMessage(DateTimePicker1.Handle,WM_KEYDOWN,VK_RIGHT,0);
   SendMessage(DateTimePicker1.Handle,WM_KEYDOWN,VK_RIGHT,0)