delphi中DateTimePicker同时修改日期和时间的实现

第一种方法：
第一步： 修改属性
    1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown
    2、parseinput -> true
第二步：在onUserInput事件中写一句代码
DateTimePicker1.DateTime:=DateAndTime;
注：以上方法虽然可以达到目的，但却会引发新的问题。（这时候控件中可以输入任意字符）
第二种方法：
1。修改delphi的包含Tdatatimepicker的单元ComCtrls.pas  
     搜索：TDateTimePicker.CNNotify(var   Message:   TWMNotify);  在这个函数中，代码：
 procedure   TDateTimePicker.CNNotify(var   Message:   TWMNotify);  
  var  
      DT:   TDateTime;  
      AllowChange:   Boolean;  
  begin  
      with   Message,   NMHdr^   do  
      begin  
          Result   :=   0;  
          case   code   of  
              DTN_CLOSEUP:  
                  begin  
                      FDroppedDown   :=   False;  
                      SetDate(SystemTimeToDateTime(FLastChange));  
                      if   Assigned(FOnCloseUp)   then   FOnCloseUp(Self);  
                  end;  
              DTN_DATETIMECHANGE:  
                  begin  
                      with   PNMDateTimeChange(NMHdr)^   do