fix error create RXDBDateEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1852 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2011-08-28 18:23:49 +00:00
parent 2977965467
commit bdfc17f284

View File

@ -208,7 +208,8 @@ end;
procedure TDBDateEdit.Change;
begin
FDataLink.Modified;
if Assigned(FDataLink) then
FDataLink.Modified;
inherited Change;
end;
@ -294,7 +295,7 @@ begin
FDataLink.OnDataChange:=@DataChange;
FDataLink.OnUpdateData:=@UpdateData;
Text:='';
UpdateMask;
//UpdateMask;
end;
destructor TDBDateEdit.Destroy;