procedure TForm1.Button1Click(Sender: TObject);begin postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0); datetimepicker1.SetFocus;end