DateTimePicker 如何让输入年后自动焦点跳到月

Question

DateTimePicker 希望输入年后自动焦点到月，输入月后自动焦点到日
如希望输入04年05月02日只要按键040502即可，而不用按05→04→02

Answer 1

本人觉得用Ehlib控件包的TDBDateTimeEditEh控件很不错的

Answer 2

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
   postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0);
   datetimepicker1.SetFocus;
end;呵呵，不错吧！

Answer 3

postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0);
用了这个函数，如果选择下一个月，或上一个月，它会自动跳动，停不下来了。