--- C:/Program Files (x86)/Embarcadero/RAD Studio/7.0/lib/jvcl/run/JvDateTimePicker.pas	�� �� 10 15:47:26 2011
+++ C:/Users/hohlovm/Documents/RAD Studio/Projects/JVDBDateTimePicker/JvDateTimePicker.pas	�� ��� 29 11:00:48 2012
@@ -152,10 +152,8 @@
 end;
 
 function TJvDateTimePicker.WithinDelta(Val1, Val2: TDateTime): Boolean;
-const
-  cOneSecond = 1 / 86400;
 begin
-  Result := Abs(Frac(Val1) - Frac(Val2)) <= cOneSecond;
+  Result := Abs(Frac(Val1) - Frac(Val2)) < EncodeTime(0, 0, 1, 0);
 end;
 
 function TJvDateTimePicker.CheckNullValue: Boolean;

--- C:/Program Files (x86)/Embarcadero/RAD Studio/7.0/lib/jvcl/run/JvDBDateTimePicker.pas	�� �� 10 15:47:26 2011
+++ C:/Users/hohlovm/Documents/RAD Studio/Projects/JVDBDateTimePicker/JvDBDateTimePicker.pas	�� ��� 29 11:25:08 2012
@@ -1,4 +1,4 @@
-{-----------------------------------------------------------------------------
+{-----------------------------------------------------------------------------
 The contents of this file are subject to the Mozilla Public License
 Version 1.1 (the "License"); you may not use this file except in compliance
 with the License. You may obtain a copy of the License at
@@ -573,17 +573,29 @@
 procedure TJvDBDateTimePicker.CNNotify(var Msg: TWMNotify);
 var
   st: TSystemTime;
+  DtInfo: ^tagNMDATETIMECHANGE;
+  MsgRaw: TMessage absolute Msg;
 begin
   case Msg.NMHdr^.code of
     DTN_DATETIMECHANGE:
     begin
       FDataLink.Edit;
       if FIsReadOnly and not FDataLink.CanModify then
-      begin
-        DateTimeToSystemTime(DateTime, st);
-        MsgSetDateTime(st);
-        Exit;
-      end;
+        begin
+          DateTimeToSystemTime(DateTime, st);
+          MsgSetDateTime(st);
+          Exit;
+        end
+      else if Kind = dtkTime then
+        begin
+          { Get the information about change }
+          if Field <> nil then
+            begin
+              DtInfo := Pointer(MsgRaw.LParam);
+              Field.Value := SystemTimeToDateTime(DtInfo.st);
+            end;
+          Exit;
+        end;
     end;
   end;
   inherited;