From adc3978ebda828034fa1ae1efdfc8cbd35b832a1 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 24 Nov 2016 17:51:27 +0000
Subject: [PATCH] Components: dbdatetimepicker: implement message
 CM_GETDATALINK, issue #30998, patch from Michal Gawrycki

git-svn-id: trunk@53438 -
---
 components/datetimectrls/dbdatetimepicker.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/components/datetimectrls/dbdatetimepicker.pas b/components/datetimectrls/dbdatetimepicker.pas
index 7c0c6a7ffd..a03de2d70d 100644
--- a/components/datetimectrls/dbdatetimepicker.pas
+++ b/components/datetimectrls/dbdatetimepicker.pas
@@ -29,7 +29,7 @@ unit DBDateTimePicker;
 interface
 
 uses
-  Classes, SysUtils, DateTimePicker, db, DBCtrls;
+  Classes, SysUtils, DateTimePicker, db, DBCtrls, LMessages;
 
 type
 
@@ -52,6 +52,7 @@ type
     procedure ActiveChange(Sender: TObject);
     function GetField: TField;
     procedure CheckField;
+    procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
   protected
     { Protected declarations }
     procedure Change; override;
@@ -228,6 +229,11 @@ begin
   end;
 end;
 
+procedure TDBDateTimePicker.CMGetDataLink(var Message: TLMessage);
+begin
+  Message.Result := PtrUInt(FDataLink);
+end;
+
 procedure TDBDateTimePicker.Change;
 begin
   if (FDataChangeCount <= 0) and Assigned(FDataLink) then begin