void __fastcall TForm1::Button1Click(TObject *Sender)
{
DateTimePicker1->SetFocus();
keybd_event(VK_RIGHT,0, KEYEVENTF_EXTENDEDKEY, 0); //值改变时模拟一次右键头实现日期连续输入
}
void __fastcall TForm8::dtp3Change(TObject *Sender)
{
if(dtp3->DroppedDown == false)
keybd_event(VK_RIGHT,0, KEYEVENTF_EXTENDEDKEY, 0); //值改变时模拟一次右键头实现日期连续输入
}