paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 12:38:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Prevent a crash when freeing a DBEdit with focus. Issue #27178, patch from Petr-K.

Browse Source 
git-svn-id: trunk@62288 -
This commit is contained in:
juha 2019-11-23 22:12:41 +00:00
parent aef6a43ae0
commit 7b46b7ced2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/dbedit.inc
View File

@ -222,9 +222,8 @@ end;
procedure TDBEdit.WMKillFocus(var Message: TLMKillFocus);
begin
inherited WMKillFocus(Message);
FFocusedDisplay := False;
if csDestroying in ComponentState then Exit;
if FDatalink.Editing then
begin
FDatalink.UpdateRecord;